docs > excel > Excel VBAの型

Excel VBAの型

Mainと処理関数を分けるといいのでは。
処理ひとつひとつは関数に分けるべきでは。

Sub Main()
  ' 選択式
  Dim filename As String
  filename = Application.GetOpenFilename(FileFilter:="Excelファイル,*.xls*,CSVファイル,*.csv")
  If filename = "False" Then Exit Sub ' キャンセル対応
  Dim wb As Workbook
  Set wb = Workbooks.Open(filename)
  Dim ws As Worksheet
  Set ws = wb.Sheets("Sheet1")


  ' 処理1
  Call f1(ws)

  ' 処理2
  Call f2(ws)
  
  ' ...

  'wb.save, wb.saveas
  wb.Close
End Sub

Sub f1 (sht As Worksheet)
  'sht.Cells(..
End Sub

Sub f2 (sht As Worksheet)
  'sht.Cells(..
End Sub