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認証)

コメント

まだコメントがありません。最初にコメントを残しませんか?

コメント投稿には、twitter認証が必要です。

Twitter認証