某ベンダーが構築したシステムが出力するエクセルファイル内に書かれていたコード。
ちなみに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
使い方ヒント: 「これは臭う」という行を見付けたら、各行のをクリックしてマーキングしておきましょう(要Twitter OAuth認証)
まだコメントがありません。最初にコメントを残しませんか?
コメント投稿には、twitter認証が必要です。
Twitter認証