予想されるリテラル定数エラーです。 Private const変数に非リテラル文字列を格納するにはどうすればいいですか

Question

非リテラル文字列をプライベートconst変数にまとめる方法は何ですか？以下のコードから生成されたエラーに応じて。

エラー：予想されるリテラル定数

コード：MSアクセスデータベースへの接続を開くには、次のコードに渡さ800A0415

Dim objExcel 
Dim objWorkbook 

Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open _ 
    ("somepath\" & FILE.Name) 

private const strSQL1 = "SELECT * FROM [" & objWorkbook.Sheets(1).Name & "$]" 

：

EXCELRECORDSET.Open strSQL1, adoJET 

私はそれがあることが必要であると考えていますサブタイプStringのバリアント変数を使用するとmsアクセスで他のエラーが発生するため、私の定数は以下のリテラルを使用すると問題はありません

private const strSQL1 = "Select * FROM [SomeHardCodedExcelSheetName$]" 

Answer 1

定義することはできません。あなたは、単にそれはあなたにエラーが発生した場合、私に知らせて、我々はそれらを見てとることができ

Dim strSQL1 
strSQL1="SELECT * FROM [" & objWorkbook.Sheets(1).Name & "$]" 

を使用することができるはずです。