不需要透過這口那口，脫褲子放屁
程序間通訊，可以用DDE
LinkPoke方法示例
本示例建立一個MicrosoftExcel的DDE連結，將一些值放置到一個新工作單的第一行的單元裡，並按照這些值畫圖。LinkPoke將畫圖需要的值傳送到MicrosoftExcel的工作單上。要檢驗此示例，計算機中必須裝有MicrosoftExcel而且要在Autoexec.bat檔案的路徑中宣告。將本例程式碼貼上到一個帶預設名Text1的TextBox控制元件的窗體的宣告部分，然後按F5鍵並單擊該窗體。
PrivateSubForm_Click()
DimCmd,I,Q,Row,Z"宣告變數。
Q=Chr(34)"定義引用標記。
"建立一個含有MicrosoftExcel宏指令的字串。
Cmd="[ACTIVATE("&Q&"SHEET1"&Q&")]"
Cmd=Cmd&"[SELECT("&Q&"R1C1:R5C2"&Q&")]"
Cmd=Cmd&"[NEW(2,1)][ARRANGE.ALL()]"
IfText1.LinkMode=vbNoneThen
Z=Shell("Excel",4)"啟動MicrosoftExcel。
Text1.LinkTopic="Excel|Sheet1""設定連線主題。
Text1.LinkItem="R1C1""設定連線專案。
Text1.LinkMode=vbLinkManual"設定連線模式。
EndIf
ForI=1To5
Row=I"定義行號。
Text1.LinkItem="R"&Row&"C1""設定連線專案。
Text1.Text=Chr(64+I)"將值放置在Text中。
Text1.LinkPoke"將值放入單元。
Text1.LinkItem="R"&Row&"C2""設定連線專案。
Text1.Text=Row"將值放置在Text中。
NextI
Text1.LinkExecuteCmd"執行MicrosoftExcel命令。
OnErrorResumeNext
MsgBox"LinkPokeDDEdemowithMicrosoftExcelfinished.",64
End
EndSub
不需要透過這口那口，脫褲子放屁
程序間通訊，可以用DDE
LinkPoke方法示例
本示例建立一個MicrosoftExcel的DDE連結，將一些值放置到一個新工作單的第一行的單元裡，並按照這些值畫圖。LinkPoke將畫圖需要的值傳送到MicrosoftExcel的工作單上。要檢驗此示例，計算機中必須裝有MicrosoftExcel而且要在Autoexec.bat檔案的路徑中宣告。將本例程式碼貼上到一個帶預設名Text1的TextBox控制元件的窗體的宣告部分，然後按F5鍵並單擊該窗體。
PrivateSubForm_Click()
DimCmd,I,Q,Row,Z"宣告變數。
Q=Chr(34)"定義引用標記。
"建立一個含有MicrosoftExcel宏指令的字串。
Cmd="[ACTIVATE("&Q&"SHEET1"&Q&")]"
Cmd=Cmd&"[SELECT("&Q&"R1C1:R5C2"&Q&")]"
Cmd=Cmd&"[NEW(2,1)][ARRANGE.ALL()]"
IfText1.LinkMode=vbNoneThen
Z=Shell("Excel",4)"啟動MicrosoftExcel。
Text1.LinkTopic="Excel|Sheet1""設定連線主題。
Text1.LinkItem="R1C1""設定連線專案。
Text1.LinkMode=vbLinkManual"設定連線模式。
EndIf
ForI=1To5
Row=I"定義行號。
Text1.LinkItem="R"&Row&"C1""設定連線專案。
Text1.Text=Chr(64+I)"將值放置在Text中。
Text1.LinkPoke"將值放入單元。
Text1.LinkItem="R"&Row&"C2""設定連線專案。
Text1.Text=Row"將值放置在Text中。
Text1.LinkPoke"將值放入單元。
NextI
Text1.LinkExecuteCmd"執行MicrosoftExcel命令。
OnErrorResumeNext
MsgBox"LinkPokeDDEdemowithMicrosoftExcelfinished.",64
End
EndSub