投稿日 | : 2003/01/22(Wed) 13:29 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^7:^11やっぱりだめでした(追加) |
そのコードでも、私の環境では残っておりませんが?
下記を一度試して下さい。
Option Explicit
Private Sub Command1_Click()
'On Error Resume Next
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim strFileName As String
Dim i As Long
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
If Len(Trim$(strFileName)) = 0 Then Exit Sub
Text1.Text = strFileName
Combo1.Visible = False
DoEvents
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFileName)
For i = 1 To xlBook.Worksheets.Count
Combo1.AddItem xlBook.Worksheets(i).Name
Next i
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Combo1.Visible = True
End Sub