Question

我有一些pdf代码并将我的文件保存到计算机上的文件夹中。我过去测试过没有问题。但是，在进行一些小的更改后，我得到运行时错误1004.任何想法为什么这是？很沮丧。谢谢。

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

Dim i As Long
Dim ws As Worksheet
Dim FileName As String

Set ws = Sheets("Multi")
Set wsJob = Sheets("Job")

FileName = ws.Range("B2")

    LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row

    For i = 8 To LastRow

        wsJob.Activate
        wsJob.Range("AZ1").Value = ws.Range("B" & i)
        wsJob.Range("AZ2").Value = ws.Range("C" & i)
        wsJob.Range("AZ3").Value = ws.Range("D" & i)
        wsJob.Range("AZ4").Value = ws.Range("E" & i)
        wsJob.Range("AZ5").Value = ws.Range("F" & i)
        wsJob.Range("AZ6").Value = ws.Range("G" & i)

        wsJob.ComboBox1.Visible = False
        wsJob.ComboBox2.Visible = False
        wsJob.ComboBox3.Visible = False
        wsJob.ComboBox4.Visible = False
        wsJob.ComboBox5.Visible = False
        wsJob.ComboBox6.Visible = False
        wsJob.CommandButton1.Visible = False

        wsJob.Rows("4:13").EntireRow.Hidden = True


        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ws.Range("B2") & "TCC Analysis - " & ws.Range("B" & i) & " - " & ws.Range("C" & i) & " - " & ws.Range("D" & i) & " - " & ws.Range("E" & i) & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False

    Next i

        wsJob.ComboBox1.Visible = True
        wsJob.ComboBox2.Visible = True
        wsJob.ComboBox3.Visible = True
        wsJob.ComboBox4.Visible = True
        wsJob.ComboBox5.Visible = True
        wsJob.ComboBox6.Visible = True
        wsJob.CommandButton1.Visible = True


        wsJob.Rows("4:13").EntireRow.Hidden = False


ws.Activate

Application.ScreenUpdating = True


End Sub

Answer 1

替换此行;

FileName:=ws.Range("B2") & "TCC Analysis - " & ws.Range("B" & i) & " - " & ws.Range("C" & i) & " - " & ws.Range("D" & i) & " - " & ws.Range("E" & i) & ".pdf"

有了这个;

FileName:=ws.Range("B2").value & "TCC Analysis - " & ws.Range("B" & i).value & " - " & ws.Range("C" & i).value & " - " & ws.Range("D" & i).value & " - " & ws.Range("E" & i).value & ".pdf"

Answer 2

替换;

    wsJob.Range("AZ1").Value = ws.Range("B" & i)
    wsJob.Range("AZ2").Value = ws.Range("C" & i)
    wsJob.Range("AZ3").Value = ws.Range("D" & i)
    wsJob.Range("AZ4").Value = ws.Range("E" & i)
    wsJob.Range("AZ5").Value = ws.Range("F" & i)
    wsJob.Range("AZ6").Value = ws.Range("G" & i)

有了这个;

    wsJob.Range("AZ1").Value = ws.Range("B" & i).Value
    wsJob.Range("AZ2").Value = ws.Range("C" & i).Value
    wsJob.Range("AZ3").Value = ws.Range("D" & i).Value
    wsJob.Range("AZ4").Value = ws.Range("E" & i).Value
    wsJob.Range("AZ5").Value = ws.Range("F" & i).Value
    wsJob.Range("AZ6").Value = ws.Range("G" & i).Value

Answer 3

替换

FileName = Sheets("Multi").Range("B2")

用这个

FileName = Sheets("Multi").Range("B2").value

使用不同的字符串更改FileName decleration，因为FileName也在ActiveSheet.ExportAsFixedFormat行中使用...

意外的运行时错误1004. PDF未保存到文件夹

3 个答案: