arr = Sheets(1).UsedRange 报错

眉长苏同学

Sub 批量创建模板文件()

Application.ScreenUpdating = False '关闭屏幕刷新
arr = Sheets(1).UsedRange  '表格数据位置                           
'设置一个WORD对象
Set wdapp = CreateObject("word.application")
'模板路径
f = ThisWorkbook.Path & "\例外续卡申请审批表模板.doc"
'WORD设置可见
wdapp.Visible = False
'打开word文档
Set wdoc = wdapp.Documents.Open(f)
'开始替换word数据
For j = 4 To UBound(arr)
If Len(arr(j, 2)) > 0 Then
'word的第一张表格中，第一行，第二列，替换为EXCEL中的第J行，第二个单元格内容
wdoc.Tables(1).Cell(1, 2) = arr(j, 1)
wdoc.Tables(1).Cell(1, 4) = arr(j, 2)
wdoc.Tables(1).Cell(2, 2) = arr(j, 3)
wdoc.Tables(1).Cell(3, 2) = arr(j, 4) & "元"
wdoc.Tables(1).Cell(3, 4) = arr(j, 5)
       '开始替换模板预置变量文本
     With wdapp.Application.Selection
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
           With .Find
              .Text = "K95"
              .Replacement.Text = Range("B2")
           End With
        .Find.Execute Replace:=wdReplaceAll

           With .Find
              .Text = "K96"
              .Replacement.Text = Range("C2")
           End With
        .Find.Execute Replace:=wdReplaceAll

           With .Find
              .Text = "K97"
              .Replacement.Text = Range("D2")
           End With
       .Find.Execute Replace:=wdReplaceAll
                  With .Find
              .Text = "K98"
              .Replacement.Text = Range("F2")
           End With
        .Find.Execute Replace:=wdReplaceAll

           With .Find
              .Text = "K99"
              .Replacement.Text = Range("G2")
           End With
       .Find.Execute Replace:=wdReplaceAll
    End With
'文件另存
wdoc.SaveAs ThisWorkbook.Path & "\" & arr(j, 1) & "例外续卡申请审批表" & ".doc"
End If
Next j
wdoc.Close
Application.ScreenUpdating = False
If 判断 = 0 Then
  i = MsgBox("已生成完毕！", 0 + 48 + 256 + 0, "提示：")
End If
End Sub

yuwd3

工作簿可能没处于活动状态吧
arr = wb.Sheets(1).UsedRange

全党

arr = Sheet1.UsedRange 或arr = Sheets("标签名").UsedRange

smiletwo

               3楼正解

qflwork

在已知表名的情况下尽量不要用sheets(1),用sheet1的代码名，或者sheets("表名“）。这样能准确知道哪个表。而sheets(1)是指第一张表，当有隐藏表时，这个有可能与你看到的不一样。

perfect131

arr = Sheets(1).UsedRange.value  '表格数据位置

眉长苏同学

qflwork 发表于 2023-5-26 13:20
在已知表名的情况下尽量不要用sheets(1),用sheet1的代码名，或者sheets("表名“）。这样能准确知道哪个表。 ...

谢谢指导，我已经确定了表名，但是运行时还是报错的，sheets("清单")

眉长苏同学

perfect131 发表于 2023-5-26 13:28
arr = Sheets(1).UsedRange.value  '表格数据位置

谢谢指教，我添加了.value，还是一样的报错呢。

眉长苏同学

全党 发表于 2023-5-26 06:02
arr = Sheet1.UsedRange 或arr = Sheets("标签名").UsedRange

谢谢指导，我输入arr = Sheet1.UsedRange，运行报错424:要求对象

输入arr = Sheets("标签名").UsedRange，运行报错5:无效的过程调用或参数，和最早的情况一样的。

眉长苏同学

yuwd3 发表于 2023-5-26 05:04
工作簿可能没处于活动状态吧
arr = wb.Sheets(1).UsedRange

加了wb.，运行报错424:要求对象