Excel VBA質問箱 IV

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

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


65233 / 76738 ←次へ | 前へ→

【16080】複数ファイルの一括取り込み
質問    - 04/7/16(金) 10:28 -

引用なし
パスワード
   おはようございます。

CSVファイルのデータを取り込むマクロを作成中で、
とりあえず以下の様なマクロを作成しました。
そこで質問なのですが、一度に一つのファイルではなく
一度に複数の異なるファイル(全てCSV)を取り込むことは
可能でしょうか?
どなたかご存知の方がいらっしゃいましたら宜しくお願いします。


Private pfile As String
Private dfile As String
Private fileToOpne As Variant
Private i, j, k, l As Integer
Private a As Variant

Sub GetData()

  pfile = ActiveWorkbook.Name

'ファイル名の取得
  fileToOpen = Application.GetOpenFilename( _
  filefilter:="CSVファイル (*.csv), *.csv", _
  Title:="ファイルを選択してください", MultiSelect:=False)
  
'ファイルを開く
  If fileToOpen <> False Then
    Workbooks.Open Filename:=fileToOpen
  Else
    End
  End If
  
'データを代入する

  dfile = ActiveWorkbook.Name
  
  For i = 1 To 60
    For j = 1 To 10
      Workbooks(pfile).Activate
      a = Workbooks(dfile).Worksheets(1).Cells(i, j)
      Workbooks(pfile).Worksheets(1).Cells(i, j) = a
    Next
  Next
  
'ファイル名を記入する
  Range("i11") = dfile
  
  
'開いたデータファイルを閉じる
  Workbooks(dfile).Close SaveChanges:=False
  
  Sheets("MeasData").Select

End Sub

0 hits

【16080】複数ファイルの一括取り込み 04/7/16(金) 10:28 質問
【16083】Re:複数ファイルの一括取り込み Asaki 04/7/16(金) 10:43 回答
【16091】Re:複数ファイルの一括取り込み 04/7/16(金) 11:38 お礼

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