Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8400 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33511】エクセルファイルの指定の仕方を教えて下... ケンケン 06/1/13(金) 16:38 質問[未読]
【33514】Re:エクセルファイルの指定の仕方を教えて... Blue 06/1/13(金) 17:05 回答[未読]
【33519】Re:エクセルファイルの指定の仕方を教えて... ケンケン 06/1/13(金) 19:14 お礼[未読]
【33511】エクセルファイルの指定の仕方を教えて下...
質問  ケンケン  - 06/1/13(金) 16:38 -
引用なし
パスワード
   私のエクセルのプログラムの中で

X=1月〜12月
Y=A〜G
で
Test.xlsのsheet("1")のA1が1月〜12月で指定される
　　　　　　　　　　　B1がA〜Gでされます。

Workbooks.Open Filename:="C:\Documents and Settings\Owner\デスクトップ
　　　_\経理システム\X\Y\テスト.xls"

としたいのですが、どうすればよいか教えて下さい。
お願いします。
【33514】Re:エクセルファイルの指定の仕方を教え...
回答  Blue  - 06/1/13(金) 17:05 -
引用なし
パスワード
   文字列として & 演算子で結合してゆけばいいのでは？

Dim s As String
Dim X As String
Dim Y As String
　　
X = Sheets("1").Range("A1").Text
Y = Sheets("1").Range("B1").Text
　　
s = "C:\Documents and Settings\Owner\デスクトップ\経理システム\" & _
　　　　X & "\" & Y & "\テスト.xls"
【33519】Re:エクセルファイルの指定の仕方を教え...
お礼  ケンケン  - 06/1/13(金) 19:14 -
引用なし
パスワード
   成功しました！！

有難うございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8400 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free