• ベストアンサー

ＶＢＡによるファイルの起動について

Ａというファイルに、Ｂ及びＣ及びＤというファイル名及びパスを記述し、Ａのマクロにてそれらを参照し、Ｂ・Ｃ・Ｄのファイルを起動するというマクロを 組んでいるのですが、Ｂ及びＣは問題なく起動するのですが、Ｄのファイルは起動しません。 ファイルパスが記述されているのは、ＡというファイルのＡ列に記載しているのですが、Ａ列が空白になるまで処理を行うようにマクロを作成しております。 ちなみにＤのファイルが起動しないので、（実際にはファイルパスは記載されております）Msgboxを使用してＤのファイルが書かれている場所は何が表示されるか確認してみたところ、"84201"というよくわからない値が表示されてしまいます。 そのために、Ｄのファイルが起動できないのですが どうしたらこの事象を解消できるのでしょうか？ ちなみに空白になるまで行うという命令は DoWhile cells(i,1)<>"" ・・・・・ loop と記載しております。

質問者が選んだベストアンサー

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.2

こんにちは。 ＞Ａのマクロにてそれらを参照し、Ｂ・Ｃ・Ｄのファイルを起動するというマクロを組んでいるのですが、 単純に、Ｂ・Ｃ・ＤのファイルというのはExcelのブックだとすれば、それらを全部開けるというのは、限界があると思うのですが。 ファイルを起動する場合は、一旦、ファイルのあるなしを調べて開けるようにします。 If Dir(Fname) <> "" Then 　　Workbooks.Open Fname End if それ以上は、コードもないし、そのファイルを開けて何をするかも分らない状態では、現時点ではわかりませんね。

その他の回答 (1)

noname#112806
noname#112806
回答No.1

すみませんが、質問文では原因が分からないのでもう少し詳しい状況説明をお願いします。 1．どのようにファイル名及びパスを記述しているのか 2．VBAでの処理はどのように行っているのか

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ＶＢＡによるファイルの起動について

    お世話になっております。 ファイルＡにマクロを作成し、ファイルＡのパスを求めます。 そして、ファイルＢを開き、ファイルＡのパス名でフィルタをかけ（仮にＡ列とします） それに対応するファイル名を求めます。仮にｃ列とします。 この場合、Ｃ列に書かれているファイル名（仮にファイルＣ）を起動するにはどうしたらよいのでしょうか？ そもそもこんな事を考えたのは ファイルＡに起動するファイル名を書いておき、起動することはわかるのですが、 今後起動する”ファイルＣ”の数が増えることが予想され、メンテナンスの面から ファイルＡの存在するフォルダより起動する”ファイルＣ”を対応させたテーブル この場合”ファイルＢ”を作成し、そこのメンテナンスさえ行えば、ファイル数の増減にも 楽に対応できるのではと思ったからです。 そもそもこのような事は無理なのでしょうか？ わかりづらい文章かもしれませんが、 宜しくお願い致します。

  • exlel 　繰り返し　マクロ　VBA

    エクセルのシートで 　　　A　　　　B 　１空白　　　100 　２空白　　　A 　３空白　　　B 　４空白　　　C 　５空白　　　空白 　６空白　　　空白 　７空白　　　200 　８空白　　　A 　９空白　　　B １０空白　　　空白 １１空白　　　300 １２空白　　　A １３空白　　　B １４空白　　　C １５空白　　　D １６空白　　　空白 上記のデータを下記の様に空白行をはさんだ不特定行のB列の各行のはじめのセルの値をA列に書き込んでいくマクロをお教えください。 　　　A　　　　B 　１100　　　　100 　２100　　　　A 　３100　　　　B 　４100　　　　C 　５100　　　　D 　６空白　　　空白 　７200　　　　200 　８200　　　　A 　９200　　　　B １０空白　　　空白 １１300　　　　300 １２300　　　　A １３300　　　　B １４300　　　　C １５300　　　　D １６空白　　　空白 お願い致します。

  • VBA マクロについて教えて下さい！

    ＶＢＡ初心者です。 以下の様なマクロを組みたいのですが、マニュアル片手に四苦八苦しております。 どなたかお力をお貸し下さいm(__)m ・Ａ列　区分（Ａ　ＯＲ　Ｂ） ・Ｂ列　番号（○○○○-○○○○） ・Ｃ列　番号前（‐より前を表示したい） ・Ｄ列　番号後（‐より後を表示したい） Ａ列・Ｂ列にはデータが入ります。 Ｂ列の番号を‐(ハイフン)で区切って、Ｃ列・Ｄ列にそれぞれ転記したいのです。※区分が”Ａ”の場合のみ。 区分が”Ｂ”の場合はＣ・Ｄは空欄のままで。 Excelの［データ］-［区切り位置］を使って操作を記録してみましたが、”Ｂ”の場合は空白にするという条件文を巧く組み合わせる事が出来ません... 他にも色々方法はあると思うのですが、なかなか辿り着く事が出来ません。 どなたかアドバイスをお願い致しますm(__)m

  • 【マクロ】クリックすると空白を含む列を非表示に

    上司にExcelのデータが見づらいと言われて困っています。 下記のようなマクロやVBAを教えていただけないでしょうか？ 例えば、 A2のセルをクリックすると、その行（2行目）から空白セルを検索して、そのセルを含む列を非表示にして、データが入っている列だけを表するようなマクロってないでしょうか？ （要は、C2とE2が空白セルのとき、A2をクリックして、A/B/D/F～の列だけ表示されるようになるマクロです。 同様に3行目でも、空白セルがB3、C3なら、A3をクリックした時、A/D/E…列だけ表示されて、B・C列が非常時になるような。） 似たような機能があれば、A2クリックでなく別にボタン等を作っても構いません。 ややこしくて、申し訳ございませんが、本当に困っているので、 どうかよろしくお願いいたします。

  • VBA ファイルオープン

    EXCEL2007使用。 いつもお世話になっております。 素人ですが、宜しくお願いいたします。 Sheet上にファイルパスがあり、 それを変数にマクロでBOOKをオープンしたいのですが、、 下記のマクロでは実行時エラー'1004 「D:\TestBook\test.xlsmが見つかりません。ファイル名およびファイルの保存場所が正しいかどうか確認してください」 と表示されます。 Sheet2に下記 　　A　　B　　　　　　C　　 1　　　　　　　　　ファイルパス 2　　　　　　　　-------------------- 3　　　　　　　　D:\TestBook\test.xlsm 4　　　　　　　　D:\TestBook\test2.xlsm 5　　　　　　　　D:\TestBook\test3.xlsm ----------------------------------------------- Private Sub CommandButton8_Click() Dim MDate As String Dim i As Integer, Cnt As Integer '項目件数をカウント Cnt = Worksheets("sheet2").Cells(500, "C").End(xlUp).Row - 2 For i = 1 To Cnt DtName = Worksheets("sheet2").Cells(i + 2, "C") MDate = DtName Workbooks.Open Filename:=MDate AWBN = ActiveWorkbook.Name Application.DisplayAlerts = False 'メッセージを非表示にする Workbooks(AWBN).Close Application.DisplayAlerts = True Next i End Sub ------------------------------------------------------------------------- マクロ記録からコピーしたファイルパスなら正常に開けるのにですが・・・ 　　 マクロ記録のパス　D:\TestBook\test.xlsm　○ sheet2のセルCにある　D:\TestBook\test.xlsm　× パス名に間違いはないと思います。また保存場所も間違いありません。 何かアドバイスいただける方、宜しくお願いいたします。

  • VBA　別ファイルの空白行を探す

    すみません、よろしくお願いいたします。 ＜前提＞ Aファイル・・貼り付け元（マクロを組み込んでいるのはこちら） xファイル・・貼り付け先（ファイル名が一定ではない・シートは1つでシート名は固定） ＜質問内容＞ Aファイル、ｘファイルともに開き、 AファイルのデータをｘファイルのA:B列（結合している）の空白行へ 貼り付けという作業をしたいと思っています。 ｘファイルの名前がかわってしまうので、 どちらのファイルも開いていて、 この二つのファイル以外は開いていないという前提で、 Windows(2).Activate でxファイルを指定するところまではできたのですが、 （教えてgooで教えていただきました） ｘファイルのA:B列の空白行を探して貼り付けというのを どうVBAで記述したらいいのかわかりません。 すみませんが、わかるかたお願いいたします。

  • VBAの記述がわかりません

    エクセル２０１０を使用してるのですが A列に不規則な空白がある数字があります。 B列にA列の空白を除いた数字を上から詰めて表示させたいのですが VBAの記述がわかりません。 よろしくお願いいたします。

  • excel2003 VBAマクロの作成

    すいません、下記のような条件を満たすマクロのサンプルコードをお願いします。 ■前提条件 ・「検索元データ」はマクロ.xlsの中にある ・「検索先ファイル」は管理ファイル.xlsである ・マクロ.xlsファイルのA列にはデータがn個ある（セル範囲A2：A(n+1)まで） ・C:\one\two\three\管理ファイル.xls　のフォルダ位置である（絶対パスで指定する） ・管理ファイルの中にはSheet1,Sheet2,Sheet3・・・・Sheet10の10コのシートがある ■マクロでしたいこと (1)A列のデータが管理ファイル（ブック内）に記載されているかチェックする (2)A列のデータをチェックしたら、下記の通りに列にチェック情報を記載する B列　データがいくつあったか（管理ファイルに記載されていない場合は0と表示） C列　データが記載されているシート名(B列が0の場合は0と表示） (3)次のデータへ (4)　(1)-(3)をA列のデータがなくなるまで繰り返す (5)データがなくなったら終了（保存せず閉じない） 以上です。 よろしくお願いします。

  • VBA　地名を抽出し、セルごとに分ける3

    https://okwave.jp/qa/q9700177.html 上記は地名を抽出し、「抽出」シートのA2から分けるように並べるといったマクロを実行しています。 A列　　B列　　C列　　D列　　E列 地名　　空白　　地名　　空白　　地名 といった一つの列を飛ばして並べたいです。 下記がイメージ画像です。 宜しくお願いします。

  • 【VBA】同一ディレクトリ内のファイル名取得とA列

    【VBA】同一ディレクトリ内のファイル名取得とA列、B列のコピペ A.xlsに同一ディレクトリ内にあるyyyymmdd.csvファイルを順に読み取り A.xlsの A1に対象ファイル名 B列に対象ファイル内のA列をコピペ C列に対象ファイル内のB列をコピペ 次のファイルはD1 その次はG1 ・ ・ といった処理をさせたいです。 どのように記述すればよいでしょうか。 よろしくお願いしますm(._.)m

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する