排序Excel中通字〜错误1004

Question

我访问Excel从Word排序Excel中的数据，然后在Word中显示，但我得到的错误：1004应用程序定义...在行中出现以下

dim exc as object, wb as object 

Set exc = CreateObject("Excel.Application") 

exc.DisplayAlerts = False 

Set wb = exc.workbooks.Open("directory of excel wkbook") 


With wb.sheets("sheet1") 

    .Activate 

    .Cells(1, 3).FormulaR1C1 = "=RAND()" 
    .Cells(1, 3).Select 

    exc.Selection.AutoFill Destination:=.Range("c1:c290"), Type:=xlFillDefault 

    .Range("c1:290").Select 
    .Sort.SortFields.Clear 

ERROR：

.Sort.SortFields.Add Key:=.Range("c1"), _ 
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 

End With 

'低于这个'其他代码不显示

它正常工作，仅在Excel中，但不能与Word中工作？

Answer 1

Word不知道的Excel常量如xlAscending等

的值您这里有三个选项：

1. 在您的Word VBA定义这些
2. 的引用添加到Excel的您的Word VBA项目中的对象模型
3. 直接使用常量的值（可以在Excel VBA编辑器的“即时”窗格中按Enter键来输入? constantNameHere）。