VBA式：変数ファイル名と変数シート名

Question

別のブックのセルへのセル参照を作成しようとしています。下のコードでは、ワークブック名​​とシート名に変数を使用しています。コードが正常に動作けれども、私はタブ= SourceTab

にリンクしていますワークブックの

• SourceFileNamePath =パスと名前は私が

にリンクするワークブックには、生成された式が機能していません。 SourceFileNamePathとSourceTabを正しく参照しているかどうかについては誰にでも考えていますか？

コードは以下の通りです：

Cells(destStartRow, destStartCol).FormulaR1C1 = "='[" & SourceFileNamePath & "]" & SourceTab & "'!R" & sourceStartRow & "C" & sourceStartCol 

Answer 1

あなたはSourceFileNamePathパスを含むという変数を持っている場合は、外部のブック内のシートのセルにアクセスするためのフォーマットがそう

'path\[filename]sheetname'!cell_reference

ですファイル名（例："C:\Temp\Data\Book1.xlsx"）の場合は、ファイル名をパスから区切る必要があります。

次のようなものを使用できます。パスまたはファイル名のいずれかが、任意の単一引用符が含まれている場合（ファイル名がSukhbir's test file.xlsxだった場合など）、それをエスケープする必要があります。

SourceFileNamePath = "C:\Temp\Data\Book1.xlsx" ' or however you set that variable 
SourceTab = "Sheet1"        ' or however you set that variable 

Dim SourceFilePath As String 
Dim SourceFileName As String 
SourceFilePath = Left(SourceFileNamePath, InStrRev(SourceFileNamePath, Application.PathSeparator)) 
SourceFileName = Mid(SourceFileNamePath, InStrRev(SourceFileNamePath, Application.PathSeparator) + 1) 
Cells(destStartRow, destStartCol).FormulaR1C1 = "='" & SourceFilePath & "[" & SourceFileName & "]" & SourceTab & "'!R" & sourceStartRow & "C" & sourceStartCol 

---

注意を（つまり、各一重引用符を二重引用符で置き換える必要があります）。これは、Replace機能を使用することによって達成することができます。例：

Cells(destStartRow, destStartCol).FormulaR1C1 = _ 
           "='" & Replace(SourceFilePath, "'", "''") & _ 
           "[" & Replace(SourceFileName, "'", "''") & "]" & _ 
           SourceTab & "'!R" & sourceStartRow & "C" & sourceStartCol