某ベンダーが構築したシステムが出力するエクセルファイル内に書かれていたコード。
ちなみにThisWorkbookが使えなくなるため、別のところでhogehogefilename = thisworkbook.Nameとして Workbooks(hogehogefilename )で呼び出していました。
Workbooks.Open pathFolder & "\" & filename
Dim thisworkbook As Workbook
Set thisworkbook = Workbooks(filename)
sheetcnt = thisworkbook.Sheets.Count
'ブック内のシートに対してループ
For i = 1 To sheetcnt
Dim sheetname As String
まだコメントがありません。最初にコメントを残しませんか?