Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


233 / 75435 ←次へ | 前へ→

【80852】vba初心者
質問  shizu  - 19/6/1(土) 8:38 -

引用なし
パスワード
   vba初心者です。
 複数のエクセルファイルから、指定した複数セルを1つのエクセルファイルにまとめようとしています。
以下のようなvbaを試したのですが、
デバッグが表示されます。
何が悪いのかわかりません。

ちなみに、取り込みたい複数のエクセルファイル、1つにまとめたいエクセルファイルは同じフォルダ内にあります。


Sub tenki()
  Dim folder As String
  Dim file As String
  Dim book As Workbook
  Dim i As Integer
  i = 2
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
      folder = .SelectedItems(1)
    End If
  End With
  
  file = Dir(folder & "\*.xlsx")
  
  Do While file <> ""
  
    Set book = Workbooks.Open(folder & "\" & file)
    
    ThisWorkbook.Worksheets("Sheet1").Range("A" & CStr(i)).Value = book.Worksheets("Sheet1").Range("B3").Value
    ThisWorkbook.Worksheets("Sheet1").Range("B" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C3").Value
    ThisWorkbook.Worksheets("Sheet1").Range("C" & CStr(i)).Value = book.Worksheets("Sheet1").Range("D3").Value
    ThisWorkbook.Worksheets("Sheet1").Range("D" & CStr(i)).Value = book.Worksheets("Sheet1").Range("C4").Value
    
    
    file = Dir()
    i = i + 1
    
    book.Close
  Loop
  
End Sub


ご教授 宜しくお願い致します。

52 hits

【80852】vba初心者 shizu 19/6/1(土) 8:38 質問[未読]
【80853】Re:vba初心者 γ 19/6/1(土) 9:20 発言[未読]
【80855】Re:vba初心者 shizu 19/6/1(土) 10:59 質問[未読]
【80856】Re:vba初心者 γ 19/6/1(土) 11:16 発言[未読]
【80857】Re:vba初心者 shizu 19/6/1(土) 13:04 お礼[未読]

233 / 75435 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free