|
下記行うこと考えております。
(やりたいこと)
・AAAA.xlsファイルを用意し、AAAA.xls の中のセルに記載されたファイル名を、自動的に開く、ということをやりたいを思っています。
具体的には下記になります。
AAAA..xlsのsheet1の セル”D5”から下の行に向かって、30個程ファイル名を事前に記載しておきます。
そのうち、開きたいファイル名があれば、それぞれの左横のセル(列C)に、”TRUE”とインプットします。
マクロを実行すると、自動的に、
1.”TRUE”のファイルを一つ開く、そのファイルに対して、ある操作を行い(自動)、保存して閉じる。
2.以降の行で”TRUE”対象のファイルを開き、ある操作を行い(自動)、保存して閉じる。
3.以降、TRUEがなくなるまで繰り返す。
(困っていること)
TRUEのファイルを開く為に、下記、記載しましたが、最初のTRUEのファイルを開くことすら出来ません。
ついては、ファイルの開き方を御教示頂けないでしょうか。
ファイル名を文字列で指定する場合はできるのですが、今回は、行ごとにファイルの名称が異なるので、変数を使いました。
(開いた後はループ処理をします。)
***************************************:
Sub 月額定額請求書()
Dim myfilename As String 'ファイル名は文字列
Range("C5").Select
If ActiveCell.Value = "True" Then
myfilename = ActiveCell.Offset(0, 1).Value
Workbooks.Open Filename:=myfilename
End If
End Sub
*****************************************
どうぞ、宜しくお願い致します。
|
|