投稿日 | : 2003/01/22(Wed) 12:01 |
投稿者 | : まさと |
Eメール | : |
URL | : |
タイトル | : Re^6:^11やっぱりだめでした。 |
何度も申し訳ないです。
よろしくお願いします。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
CommonDialog1.ShowOpen
intFileName = CommonDialog1.FileName
Text1.Text = intFileName
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlBook = xlApp.Workbooks.Open(intFileName)
For i = 1 To xlApp.Worksheets.Count
Combo1.AddItem xlApp.Worksheets(i).Name
Next i
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub