| |
下記行うこと考えております。
（やりたいこと）
・AAAA.xlsファイルを用意し、ＡＡＡＡ.xls の中のセルに記載されたファイル名を、自動的に開く、ということをやりたいを思っています。
具体的には下記になります。
ＡＡＡＡ..xlsのsheet１の セル”Ｄ５”から下の行に向かって、３０個程ファイル名を事前に記載しておきます。
そのうち、開きたいファイル名があれば、それぞれの左横のセル（列Ｃ）に、”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
*****************************************
どうぞ、宜しくお願い致します。
|
|
かわかみまめお
- 10/10/21(木) 12:17 -
