![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
お世話になっております。。。
excel2007です。
アクティブである、ThisWorkbookに
外部ファイルから値のみ取得し、ThisWorkbookのA14セルからA27まで
入力させたい・・・
のですが、上手くいきません。
WEB検索して、ExecuteExcel4Macroでやってみたのですが、
Cells(1, C + 13) = ExecuteExcel4Macro("'strFullPath1'!受注書" & "Cells(2, C + 23)")
のところで、「値の更新:strFullPath1」と出てしまいます。
どうしたら良いでしょうか?
Private Sub CommandButton1_Click()
Const FILE_DIR1 As String = "\\192.168.~" '途中までのパス
Const FILE_DIR2 As String = "\\192.168.~~" '途中までのパス
Dim strFullPath1 As String
Dim strFullPath2 As String
Dim strFileName As String
Dim フォルダ名 As String
Dim C As Integer
フォルダ名 = TextBox2.Value & "\" & Range("B4") & "\"
strFileName = "*" & Range("B5") & " " & Range("B6") & ".xls"
strFullPath1 = FILE_DIR1 & フォルダ名 & strFileName
strFullPath2 = FILE_DIR2 & フォルダ名 & strFileName
C = 1
If Dir(strFullPath1) <> "" Then
For C = 1 To 14
Cells(1, C + 13) = ExecuteExcel4Macro("'strFullPath1'!受注書" & "Cells(2, C + 23)")
Next D
Else
For C = 1 To 14
Cells(1, C + 13).Formula = "[strFullPath2]sheet!cells(1,D+17)"
Cells(1, C + 13).Value = Cells(D, 14).Value
Next D
End If
Unload Me
End Sub
端折っているので、抜けがあるかもしれません。
お知恵を頂けますでしょうか?
宜しくお願い致します。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
>strFileName = "*" & Range("B5") & " " & Range("B6") & ".xls"
* は、ファイル・フルネームには使えません。ワイルドカードです。
ブック名は、[] で囲みます。
ネットワークではありませんが、このようなスタイルになります。
ExecuteExcel4Macro の中は、R1C1 型で書きます。
'--------------------------------------
FILE_DIR1 = "C:\"
フォルダ名 = "Documents and Settings\[Test 1]\My Documents\"
strFileName = "[Test1.xls]"
strFullPath1 = FILE_DIR1 & フォルダ名 & strFileName
i = 1
j = 1
Cells(1, i + 13).Value = ExecuteExcel4Macro("'" & strFullPath1 & "受注書'!" & "R" & i & "C" & j)
No.1
- 回答日時:
Cells(2, C + 23)を""で囲ってる時点でおかしいです。
アドレスはR1C1形式で指定しないと駄目です。
それと、'strFullPath1'!がシート名?
不明な点が多いので、直接の回答は控えますが、以下のURLが参考になると思います。
http://www.officetanaka.net/excel/vba/tips/tips2 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
甲状腺が腫れているが血液検査...
-
勃起する時って痛いんですか? ...
-
尿検査前日に自慰行為した時の...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
MIN関数で空白セルを無視したい...
-
中出しをするとお腹が痛い・・・。
-
EXCELで式からグラフを描くには?
-
【Excelで「正弦波」のグラフを...
-
ある範囲のセルから任意の値を...
-
エクセルのグラフで、値0のとき...
-
リンク先のファイルを開かなく...
-
これって喉仏ですか? 私は女性...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報