文書番号: 410500
最終更新日: 1999/03/21
Sub Command1_Click () ' タイムアウト エラーの発生を防ぎます。 Text1.LinkTimeout = -1 Text1.LinkTopic = "Excel|System" Text1.LinkMode = 2 ' マクロシートを新規に作成し、保存 ' パス名およびファイル名は環境にあわせて変更してください。 ' なお、ディスク上に存在していないファイル名にしてください。 Text1.LinkExecute "[NEW(3)][SAVE.AS(""c:\test1.xlm"" ,1)]" Text1.LinkMode = 0 Text1.LinkTopic = "Excel|test1.xlm" ' マクロ コマンドを記述するセル範囲を指定 Text1.LinkItem = "R1C2:R2C2" Text1.LinkMode = 2 ' マクロ コマンドで Excel のバージョンを調べます Text1.Text = "=GET.WORKSPACE(2)" + Chr$(&HD) + "=RETURN()" ' マクロ シートに展開 Text1.LinkPoke '結果を表示させるように設定して実行 Text1.LinkExecute "[DISPLAY(FALSE)][SELECT(""R1C2:R2C2"")][RUN()]" Text1.LinkMode = 0 ' 結果を得るためにリンクしなおす Text1.LinkTopic = "Excel|test1.xlm" Text1.LinkItem = "R1C2" Text1.LinkMode = 2 Text1.LinkRequest Text1.LinkMode = 0 MsgBox "Excel の Version は " & Text1.Text End Sub
Keywords: KBHOWTO KB410500
Technology: kbAudDeveloper kbVBSearch