用word VBA如何向一个EXCEL工作表中的单元格写入数据?

iamatig

1.用word VBA如何向一个EXCEL工作表中的单元格写入数据?

2.n = 1 Set myxl = CreateObject("F:\文字资料\总标记.xls") Do n = n + 1 An = "A" & n Bn = "B" & n MsgBox An & " " & Bn docname = myxl.sheets("ALL").Range(An).Value '提取出目标档名称 docname MsgBox "docname" & docname sign = myxl.sheets("ALL").Range(Bn).Value '提取出目标档成功标记 sign=1 已经完成 sign=0 没完成 Select Case sign Case 0 Call 创建目标档 Case 1 End Select Loop While (sign > 0)

原来是"An",改成An就可以了

[此贴子已经被作者于2005-9-20 13:54:12编辑过]

守柔

这种Do LOOP循环的结构用于EXCEL中，是一种浪费，效率也不高，应该提倡使用FOR EACH语句

如：

Sub Example() '请引用MICROSOFT EXCEL 10.0 OBJECT LIBRARY Dim xlSheet As Excel.Worksheet, i As Excel.Range, xlRange As Excel.Range Dim DocName As String, sing As Byte Set xlSheet = CreateObject("F:\总标记.xls").Sheets("all") Set xlRange = xlSheet.Range("A2:" & xlSheet.[A65536].End(xlUp).Address) For Each i In xlRange DocName = i.Value sing = i.Offset(, 1).Value MsgBox "DocName:=" & DocName & vbCrLf & "sing:=" & sing Select Case sing Case 0 ' Call 创建目标档 Case 1 End Select Next Set xlSheet = Nothing End Sub

iamatig

谢谢,学习中......