0
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 1 year has passed since last update.

【VBA】Sub 作業フォルダにある部分一致の作業ファイルを指定して開きたい()

Last updated at Posted at 2023-02-11

Sub 作業フォルダにある部分一致の作業ファイルを指定して開きたい()

'任意の作業フォルダ内の各人別の指定形式のファイルを都度操作したいな。。。。
'複数のプロシージャでも下記の作業ファイルを仕様するならばCallの括りのところに入れるか、Publicで入れるか???

'自PCのDocument内に\作業フォルダを作成し、そこに対象ファイル※ここでは”*作業ファイル.xls?”を格納します
'作業フォルダパスを変数にします。
Dim 作業フォルダパス As String
作業フォルダパス = "C:\Users\user\Documents\作業フォルダ"
'ここはお尻の/を忘れがちなので要注意!

'作業フォルダ内の任意のファイル名を取得して変数にします。
'ちなみに*がワイルドカード、?はAnyの1文字。この部分はいろいろ。
Dim ファイル名 As String
ファイル名 = Dir(作業フォルダパス & "*作業ファイル.xls?")

'作業ファイルを開きます。
Workbooks.Open Filename:=作業フォルダパス & ファイル名

'作業ファイル(ワークブック)を変数にしてます。Workbookの場合は「Set」します。
'開いたファイルを以降に使えるようにします。
Set 作業ファイル = ActiveWorkbook

作業ファイル.Activate

End sub

0
1
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?