こんにちは。
Excel VBAより、ExecuteExcel4Macroを実行して、
外部のExcelファイルの、名前(店名、月度)を定義したセルの値を取得したいと思っています。
店名:文字列型
月度:Date型
そこで、ExecuteExcel4Macro()を実行し、以下のような処理を加えました。
------------------------------------------------------------------------------------
dim 店名 as Variant, 月度 as Variant
If 外部マクロ実行("'c:\[test.xls]出勤簿'!店名", 店名) = False Or _
外部マクロ実行("'c:\[test.xls]出勤簿'!月度", 月度) = False Then
MsgBox "取得失敗", vbExclamation
End
End If
Public Function 外部マクロ実行(com As String, ByRef result As Variant) As Boolean
On Error GoTo erron3
result = ExecuteExcel4Macro(com)
On Error GoTo 0
外部マクロ実行 = True
Exit Function
erron3:
外部マクロ実行 = False
End Function
------------------------------------------------------------------------------------
これを実行したところ、「月度」の値は取得できるのですが、
「店名」の値には「エラー 2042」という値が入ります。
※dirname, filenameは正しい値が入っています。
※シート「出勤簿」および「月度」「店名」のセル名の定義も存在します。
test.xlsを開いてるときは、上記の現象は起こらず、
「店名」の値は正常に取得できます。
また、試しに、test.xlsを開き、
Worksheets("出勤簿").Range("店名")を実行すると、正常な値が取得できました。
まとめると、
・閉じたブックの、あるシートにある、セルに定義された名前を指定して
・ExecuteExcel4Macroで、文字列が入っている値を取得しようとした時、
・正常に値が取得できない
という現象に遭遇しています。
3日ほど調べているのですが、どうしても原因が分かりません。
解決策をお持ちの方、いらっしゃいましたらアドバイスを頂けると助かります。
環境:WindowsXP Pro SP3
Excel 2003 (11.5612.5606)
以上、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
'-------------------------------------------------
Sub Test()
Dim 店名
Dim 月度
店名 = 外部マクロ実行("'C:\[test.xls]出勤簿'!店名")
月度 = 外部マクロ実行("'C:\[test.xls]出勤簿'!月度")
If 店名 = 0 Or 月度 = 0 Then
MsgBox "取得失敗", vbExclamation
Else
MsgBox 店名 & " @ " & Format(月度, "yyyy/m/d")
End If
End Sub
'-----------------------------------------------
Function 外部マクロ実行(com As String)
外部マクロ実行 = ExecuteExcel4Macro(com)
End Function
'-----------------------------------------------
●ただ今回の場合は、Functionは無しでもいいような。。。
'----------------------------------------------
Sub Test555()
Dim 店名
Dim 月度
店名 = ExecuteExcel4Macro("'C:\[test.xls]出勤簿'!店名")
月度 = ExecuteExcel4Macro("'C:\[test.xls]出勤簿'!月度")
If 店名 = 0 Or 月度 = 0 Then
MsgBox "取得失敗", vbExclamation
Else
MsgBox 店名 & " @ " & Format(月度, "yyyy/m/d")
End If
End Sub
'----------------------------------------------------
以上。
No.2
- 回答日時:
こんにちは。
ExecuteExcel4Macro というスタイルは、直接、マクロ関数を取る以外は、追いかけないほうがよいかもしれませんが、そのコード自体は間違いありません。
>「エラー 2042」という値が入ります。
という意味は、「#N/A 」の戻り値です。
だから、そのエラー値は、数式側だけの問題です。数式を調べないといけません。
"'c:\[test.xls]出勤簿'!店名"
私としては、その書き方は、一見良いのですが、実際、ルートに置くわけではないでしょうから、失敗しやすいです。
これは、目的のファイルが開いていない状態で扱うときですが、実務上では、ファイルが開いていなければ、開けて、Evaluate で取るというのが、一般的な書き方です。そうでなければ、DAOやADOを使って開くというスタイルになります。
全体的に、Excelマクロとしては変則的なコードだと思います。
今回の場合は、ユーザー定義関数側では、参照渡しは、あまり良いとは思いません。実行時エラーと両方を取ろうとしたので、Boolean値のユーザー定義関数自体を戻り値にしたのだと思いますが、この種のものは、実行時エラーが発生するのは、コードの自体の間違いか、ファイルが存在しない間違いですから、Dir 関数などの回避の仕方はあると思います。単に、数式の戻り値を、ユーザー定義関数側に返すだけで十分な気がします。
なお、そのコードは「外部マクロ実行」ではありません。
'----------------------------------------
Dim 店名 As Variant, 月度 As Variant
Dim nShiki1 As String
Dim nShiki2 As String
Const nPATH = "'C:\Documents and Settings\[UserName]\My Documents\"
Const nWBNAME = "test.xls"
Const nSHNAME = "出席簿"
Const nADDRESS1 = "店名" '名前登録はそのまま、アドレスなら、R1C1方式
Const nADDRESS2 = "月度"
nShiki1 = "[" & nWBNAME & "]" & nSHNAME & "!" & nADDRESS1
店名 = Evaluate(nShiki1) 'ファイルが開いているかチェックする
If IsError(店名) Then
nShiki1 = nPATH & "[" & nWBNAME & "]" & nSHNAME & "'!" & nADDRESS1
nShiki2 = nPATH & "[" & nWBNAME & "]" & nSHNAME & "'!" & nADDRESS2
'Debug.Print nShiki ''数式の内容チェック
If 外部マクロ実行(nShiki1, 店名) = False Or _
外部マクロ実行(nShiki2, 月度) = False Then
MsgBox "取得失敗", vbExclamation
Exit Sub
End If
Else
nShiki2 = "[" & nWBNAME & "]" & nSHNAME & "!" & nADDRESS2
月度 = Evaluate(nShiki2)
End If
End Sub
'-----------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2023/01/20 14:36
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA ExecuteExcel4Macro 型が一致しません
Excel(エクセル)
-
Excel VBAのApplication.ExecuteExcel4Macro
Access(アクセス)
-
Excel VBA Application.caller エラー2023について
Visual Basic(VBA)
-
-
4
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
5
Excel VBA ExecuteExcel4Macroについて
その他(Microsoft Office)
-
6
エクセルVBAで画面の大きさを取得する方法!
Excel(エクセル)
-
7
ExecuteExcel4Macroを使って他のブックを開かずにセルを
Excel(エクセル)
-
8
ファイルを閉じたままの外部参照で最終行の行数取得
Visual Basic(VBA)
-
9
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
10
VBA ブックを開かずにブック内のデータを取得する方法
Visual Basic(VBA)
-
11
エクセルエラー13型が一致しませんの直し方教えて下さい。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
射精をして1週間以内に尿検査を...
-
中出しをするとお腹が痛い・・・。
-
男です。昨日の午後3時くらいに...
-
彼女のことが好きすぎて彼女の...
-
今朝、毎朝の習慣でオナニーし...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
白血球が多いとどんな心配があ...
-
口の中に黒い血の塊
-
1日前の検尿
-
精子に血が・・・
-
これって喉仏ですか? 私は女性...
-
値が入っているときだけ計算結...
-
【Excelで「正弦波」のグラフを...
-
変な話しになります。尿検査で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報