[解決済み] 閉じたワークブックから値を取得するExecuteExcel4Macro
2022-02-14 23:39:59
質問
このコードを見つけ、閉じたシートから1つの値を引き出す必要がある場合に使用するのが良いかと思いました。
strInfoCell = "'" & strPath & "[" & strFile & "]Sheet1'!R3C3"
myvalue = ExecuteExcel4Macro(strInfoCell)
このコードを実行すると
strinfocell
の
'C:\Users\my.name\Desktop[QOS DGL stuff.xlsx]Sheet1'!R3C3
しかし、このコードを実行すると、ダイアログがポップアップし、デスクトップファイルが " で表示されます。
QOS DGL suff
"が表示されます。
この原因は何でしょうか?なぜ期待通りにデータが引き戻されないのでしょうか?
パスとファイル名が正しいことは、デバッグ出力からコピーして、それを
start>>run
をクリックすると、正しいシートが開きます。
私は知っている
Sheet1
(という名前)。
ACL
には値があります。
cells(3,3)
どのように解決するのですか?
使い方によります。strPathの末尾に""がないため、ファイルを開くダイアログボックスが表示されています;)。
このコードを試してみてください。
Option Explicit
Sub Sample()
Dim wbPath As String, wbName As String
Dim wsName As String, cellRef As String
Dim Ret As String
'wbPath = "C:\Documents and Settings\Siddharth Rout\Desktop\"
wbPath = "C:\Users\my.name\Desktop\"
wbName = "QOS DGL stuff.xls"
wsName = "ACL"
cellRef = "C3"
Ret = "'" & wbPath & "[" & wbName & "]" & _
wsName & "'!" & Range(cellRef).Address(True, True, -4150)
MsgBox ExecuteExcel4Macro(Ret)
End Sub
関連
-
[解決済み】「ワークシートクラスの貼り付けメソッドに失敗しました」が時々発生するのはなぜですか?
-
[解決済み] Excel/VB関数でエラーになる。"定数式が必要です"
-
[解決済み] Doエラーにならないループ
-
[解決済み] Excel VBA オートメーション エラー。呼び出されたオブジェクトは、そのクライアントから切断されました。
-
[解決済み] セル内に改行文字を追加する(CSV)
-
[解決済み] VLOOKUP 最初の結果の下の行に値があるにもかかわらず、0を返す
-
[解決済み] エクセル文書のMIMEタイプ設定
-
[解決済み】Excel 2013で.csvファイルを正しく表示する方法は?
-
[解決済み] Excel用CSVファイルの生成、値の中に改行を入れるには?
-
[解決済み] MS Excelでバージョン管理をする最適な方法【非公開
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み] XLSMをCSVで保存しようとすると、「オブジェクト_workbookのメソッドsaveasに失敗しました」エラーが発生する
-
[解決済み] VBAやマクロを使わずにExcelでループさせる方法とは?
-
[解決済み] セルが文字列で始まる場合... 計算式
-
[解決済み] ExcelでのIF - ELSE IF - ELSE構造
-
[解決済み] エクセルVBAで行を削除する
-
[解決済み] 2つのデータセットに対する積み重ねられたカラムチャート - Excel
-
[解決済み] モジュール内でUserForm_Initialize()を呼び出す
-
[解決済み] UTF-8のCSVファイルをExcelに強制的に自動認識させることは可能ですか?
-
[解決済み] エクセル文書のMIMEタイプ設定
-
[解決済み] エクセルで、ある変数を一定に保ち、他の変数を行によって変化させる方法