0
すべてのファイルが同じテンプレートを使用しているフォルダ内のワークシートから別のワークシートに情報の行列を作成しています。 テンプレートモデルの1枚のシートに3枚目が入っていて、エラーが表示されているため、各テンプレートから3つのセルしか引き出されていません。 。refが空であるためGetValuePriceを使用してエラーを受け取る
プライベートファンクションGetValuePrice（パス、ファイル、シート、REF：Object_globalは、私はそれが私のエラーとは何かを持っているかどうかわからないですか、それはだ場合は何かがそれ以前に発生した）「失敗の
私には、以下の持っています）
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xR1C1)
Debug.Assert Var = 0
GetValuePrice = ExecuteExcel4Macro(arg)
エンド機能
私はエラーを受け取りました。私がデバッグを打つと、refが空であることがわかります。 （Object_globalの範囲のファイル名を指定して実行時エラー1004の方法は、「失敗した）
これは私がフォルダ内のテンプレートからタブのワークロードとプロジェクト情報からプルするボタンを持っているコードです。
ます。Private Sub CommandButton21_Click（）
ThisWorkbook.Sheets("Sheet1").Range("a166:h500").ClearContents
ThisWorkbook.Sheets("Sheet1").Range("j166:v500").ClearContents
Application.Calculation = xlCalculationManual
ProjectInfo
WorkLoad
Application.Calculation = xlCalculationAutomatic
End Sub
私は同じコードを持つ別の行列を実行するために修正しますが、ファイルの保存先を変更するかわからないんだけど、それは動作します。私の第2のサブで