[VBA] 敢えてその変数名にするのかー-ウンコード・マニア

cool0707 2023-03-17 06:37:54

[VBA] 敢えてその変数名にするのかー

投稿者からのアピールポイント

某ベンダーが構築したシステムが出力するエクセルファイル内に書かれていたコード。ちなみに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

使い方ヒント: 「これは臭う」という行を見付けたら、各行の smell をクリックしてマーキングしておきましょう(要Twitter OAuth認証)