Question

将非Literal字符串组合到私有const变量中的方法有哪些。根据以下代码产生的错误。

错误：预期的文字常量

代码：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 & "$]"

传递给以下代码以打开与ms access数据库的连接：

EXCELRECORDSET.Open strSQL1, adoJET

我认为它需要是一个私有常量，因为使用子类型String的变量变量会导致ms访问的其他错误但是，当我使用以下文字时没有问题

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

Answer 1

你无法定义。你应该只能使用

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

如果这导致您出错，请告诉我们，我们可以查看这些错误。

预期的文字常量错误。如何使Private Const变量存储非文字字符串

1 个答案: