使用字符串變量分配工作表范圍

Question

我有一個分配了以下值的字符串變量：

Answer = ""M3:AM3""

我想將此變量分配給Range，如下所示：

DIM xlRange As Excel.Range
Set xlRange = xlApp.Sheets("Sheet1").Range(Answer)

這將生成錯誤“應用程序定義的錯誤或對象定義的錯誤”

我還嘗試了以下操作，使用該范圍的變量粘貼值，並得到相同的錯誤：

xlApp.Sheets("Sheet1").Range(Answer).PasteSpecial xlPasteAll

有人可以幫我解決這個問題嗎？ 謝謝。

Answer 1

我認為您的錯誤是未定義的xlApp：

DIM xlApp as Excel.Application

如果已經定義了它，那么問題在於雙引號，這對VBA毫無意義。 另外，您還有另一個問題是層次結構：

 xlApp.Sheets("Sheet1").Range(Answer)

在xlApp之后，您必須定義一個WORKBOOK，而不是WORKSHEET。 所以您也需要提供Sheet1的工作簿

所以假設：

Answer="M3:AM3"

你可以寫：

 Set xlApp = Application
 Set xlRange = xlApp.ActiveWorkbook.Sheets("Sheet1").Range(Answer)

如果您肯定知道工作簿的名稱，則可以將ActiveWorkbook替換為Workbooks（“ MyWorkbookName”）。