トップページ > コンテンツ > プログラミング入門 > Excel VBA入門 > ファイルを開く

Workbooks.openでファイルを開くことができる。

ファイルを保存するとき等に良く出てくるポップアップウィンドウは
Application.FileDialog(msoFileDialogFolderPicker)でフォルダの指定、
Application.FileDialog(msoFileDialogFilePicker)でファイルの指定ができる。

ファイルを開くときには以下のような方法も使える。

file1 = Application.GetOpenFilename( _
  FileFilter := "エクセルファイル(*.xls),*.xls," & _
                "CSVファイル(*.csv),*.csv" _
 ,FilterIndex := 1 _
 ,Title :="開く" _
 ,MultiSelect := False _
)

Set book1 = Workbooks.open(file1);

'開いたブックの全てのシートに対して処理を行う。
For Each s1 In book1.Worksheets
  With s1.UsedRange
    ROW_SRC = .row
    COL_SRC = .column
    ROW_DST = .Rows(.Rows.Count).row
    COL_DST = .Columns(.Columns.Count).Column
  End With
  
  For row = ROW_SRC to ROW_DST
    For col = COL_SRC to COL_DST
    Next
      's1.Cells(row,col)を使って処理等。
  Next
Next

book1.Close