投稿日	： 2006/05/10(Wed) 17:34
投稿者	： りん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 既存のExcelファイルを選択し、表を読み込む時のエラー

　試しに書いてある通りに作ってみましたが問題なく動作しましたよ。
　※Formにボタンとコモンダイアログを貼り付けExcelを参照しています。
Private Sub Command1_Click()
    CommonDialog1.CancelError = True
    With CommonDialog1
        .Flags = cdlOFNHideReadOnly
        .Filter = "すべてのファイル　(*.*)|*.*|" & "エクセルファイル　(*.xls)|*.xls|"
        .FilterIndex = 2
    End With
    CommonDialog1.ShowOpen
    MsgBox CommonDialog1.FileName
    
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = True
    Dim i As Integer
    Dim j As Integer
    Dim strZahyou(2, 2) As String
    For i = 1 To 2
        For j = 1 To 2
            strZahyou(i, j) = xlSheet.Cells(i + 1, j)
            Debug.Print xlSheet.Cells(i + 1, j)
        Next j
    Next i
End Sub

★ - 既存のExcelファイルを選択し、表を読み込.. - Take 05/10-16:56No.6431
• Re: 既存のExcelファイルを選択し、表を読.. - りん 05/10-17:34 No.6433
  • Re^2: 既存のExcelファイルを選択し、表を.. - Take 05/10-18:16 No.6434
    • Re^3: 既存のExcelファイルを選択し、表を.. - ぶぶ 05/10-23:09 No.6436
      • Re^4: 既存のExcelファイルを選択し、表を.. - Take 05/12-09:15 No.6444