Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15263 / 76738 ←次へ | 前へ→

【66956】エクセルファイルを開く
質問  かわかみまめお  - 10/10/21(木) 12:17 -

引用なし
パスワード
   下記行うこと考えております。

(やりたいこと)
・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

*****************************************

どうぞ、宜しくお願い致します。
0 hits

【66956】エクセルファイルを開く かわかみまめお 10/10/21(木) 12:17 質問
【66957】Re:エクセルファイルを開く Jaka 10/10/21(木) 12:58 発言
【66958】Re:エクセルファイルを開く かわかみまめお 10/10/21(木) 13:33 発言
【66959】Re:エクセルファイルを開く Jaka 10/10/21(木) 13:54 発言
【66960】Re:エクセルファイルを開く Jaka 10/10/21(木) 14:03 発言
【66964】Re:エクセルファイルを開く かわかみまめお 10/10/21(木) 16:56 お礼
【66963】Re:エクセルファイルを開く かわかみまめお 10/10/21(木) 16:50 お礼
【66961】Re:エクセルファイルを開く UO3 10/10/21(木) 14:05 発言
【66965】Re:エクセルファイルを開く かわかみまめお 10/10/21(木) 17:13 お礼
【66967】Re:エクセルファイルを開く かわかみまめお 10/10/21(木) 21:02 質問
【66972】Re:エクセルファイルを開く ponpon 10/10/21(木) 22:38 発言
【66974】Re:エクセルファイルを開く かわかみまめお 10/10/22(金) 1:25 お礼

15263 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free