【初心者】excel(xlsx)ファイルの読み込み

Question

excelファイルをダイアログ画面を表示させて選択し、そのファイルの情報を取り扱いたいのですが、どのように読み込んだらいいのかがわかりません。調べてみたりもしたのですが、いまいち理解が及ばずといった感じで．．助けていただけると嬉しいです。

Answer 1

とりあえずざっくり基本的な流れだけ書いてみました。

Sub sample()

    ' ファイルを開くダイアログ表示
    fn = Application.GetOpenFilename(",*.xlsx")
    
    ' ワークブックを開く
    Set wb = Workbooks.Open(fn)
    
    ' １シート目を取得
    Set ws = wb.Worksheets(1)
    
    ' A1セルを参照
    Debug.Print ws.Cells(1, 1).Value
    
    ' ワークブックを閉じる
    wb.Close
    
End Sub