当我不在Excel中时，如何定义一个范围对象？

Question

我正在研究MS Project中的VBA脚本，其中涉及创建工作簿。但是我在定义一个范围时做错了什么，而且它的工作方式似乎有所不同，因为我不在Excel中。

这是我当前的代码，归结为有问题的部分：

Dim myExcel As Object
Dim myWb As Object
Dim myRange as Object 'Not sure if I should declare this one as an object or a range
Dim myRangeString as String

Set myExcel = CreateObject("Excel.Application")
Set myWb = myExcel.Workbooks.Add

myRangeString = "$D$20, $C$23" 'For simplicity. Obviously this is not hard coded.

Set myRange = Range(myRangeString)

此代码在Excel中正常工作。但是在项目中，它停止并返回“运行时错误'1004'：方法'对象'_global'失败。”。也许是因为在这种情况下“全局”是项目，而不是出色。因此，我尝试了myexcel.range（myrangestring）的不同变体，但是后来我得到了“应用程序定义或对象定义的错误”。反而。

谁能帮忙？

Answer 1

我似乎已经或多或少地解决了它的答案， @orange_guy和@rachel。解决方案是使用分号（不是结肠，而不是逗号）。反正非常感谢！

Answer 2

您的代码使用较晚的绑定，这意味着对象在运行时是未知的，并且没有 intelliSense 。使用后期绑定的优点是，该代码适用于具有较旧版本的Office的用户。否则，它比用户早期绑定更可取。 （请参阅。）

通过设置对Excel对象库的引用（在VB编辑器，工具：参考，向下滚动并选中Microsoft Excel对象库）的框来使用早期绑定。

这是一个工作的MS Project示例使用后期绑定：使用阵列在块中脱颖而出的代码

Sub ExportToExcelLateBindingCellByCell()

Dim myExcel As Object
Dim myWb As Object

Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = True
Set myWb = myExcel.Workbooks.Add

myWb.Worksheets(1).Range("$D$20") = ActiveCell.Task.Name
myWb.Worksheets(1).Range("$C$23") = ActiveCell.Task.ID

End Sub

是一个好主意 - 也许这就是“ $ d $ d $ 20，$ c $ 23”的意图。但是，正确的范围语法是使用结肠，但是D20：C23尴尬，使用C20：D23。

这是一个早期结合示例，该示例在块中写入数据，对于大量数据而言，它明显更快。

Sub ExportToExcelEarlyBindingArray()

Dim myExcel As Excel.Application
Dim myWb As Excel.Workbook

Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = True
Set myWb = myExcel.Workbooks.Add

Dim TaskInfo(4, 2) As Variant
Dim i As Integer
For i = 1 To 4
    TaskInfo(i - 1, 0) = ActiveProject.Tasks(i).ID
    TaskInfo(i - 1, 1) = ActiveProject.Tasks(i).Name
Next i

myWb.Worksheets(1).Range("$D$20:$C$23") = TaskInfo

End Sub

Answer 3

就像@bigben和@darren一样，我也没有MS项目，但是我在Excel和Outlook中也有类似的交叉应用vba脚本，并在对我来说非常有效。这是片段：

Public Sub XPTO()

Dim xExcelFile As String
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xExcelRange As Excel.Range
   
'Get the dimension table
xExcelFile = "C:\path\toMyFile\File.xlsm"
Set xExcelApp = CreateObject("Excel.Application")
Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
Set WKB = xExcelApp.ActiveWorkbook
Set xExcelRange = xWb.Sheets("Sheet1").Range("myTable").ListObject

因此，基本上我在任何变量之前都提及该应用程序。另外，可能有效的一件事是 set 您提到的变量（“ myrangestring”）作为对象。我不知道为什么，但是碰巧对我有用。因此，代替：

myRangeString = "$D$20, $C$23"

您会放一些东西：

set myRangeString = myWb.Sheet(1).Range("$D$20, $C$23")