こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのファイル名に変数を指定して開く方法

エクセルのVBA初心者です。
最近、といっても2~3日前に始めたのですが、簡単なところで
つまづいてしまい、本を読んでもにっちもさっちもいかず、困っております。
下記にやりたいことと、構文を記載しますので、お手数ですがアドバイスを
頂ければ助かります。

<やりたいこと>
特定のセルに記載された文字をファイル名としたエクセルファイルを
VBAで開きたい。

<構文>
Sub W()

Dim ファイル名 As Integer
ファイル名 = Range("C5").Value
Workbooks.Open "D:\日本\データ\ファイル名.xlsx"

End Sub

<問題点>
上記のように構文を組んでも、「実行時エラー '1004'」なるメッセージが出て
「***が見つかりません。ファイル名およびファイルの保存場所が正しいか...」とのメッセージが出てしまいます。
C5のセルにはファイル名が記載され、このファイル名を変数としたつもりです。
VBAが入っているファイルは、「日本」というフォルダに入っており、変数によるファイルは「日本」というフォルダの子供である「データ」というフォルダに入っています。
アドバイスよろしくお願いします。

投稿日時 - 2014-10-16 23:36:36

QNo.8793094

困ってます

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

No.1さんに加えて

Workbooks.Open "D:\日本\データ\ファイル名.xlsx"
↓↓↓↓
Workbooks.Open "D:\日本\データ\" & ファイル名 & ".xlsx"

投稿日時 - 2014-10-17 02:00:58

ANo.2

このQ&Aは役に立ちましたか?

9人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

Dim ファイル名 As Integer

Dim ファイル名 As String

Integerじゃ整数で数値です。ファイル名にはなりません。
Stringで文字列です。

とりあえずこれ。

投稿日時 - 2014-10-17 00:48:15

お礼

早速の回答、ありがとうございました!

投稿日時 - 2014-10-18 01:06:14

あなたにオススメの質問