投稿日 | : 2003/09/25(Thu) 15:23 |
投稿者 | : 初心者 |
Eメール | : t.igawa@microtv.co.jp |
URL | : |
タイトル | : ファイルリストからExclを開く |
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub Command1_Click()
On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("Dir1.Path & " \ " & File2&quo
t;)
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
End Sub
--------------------------------------------------------------------
このPathでExclを表示できないんでしょうか?
また、不具合がわかりましたらご教授ください。