EXCEL VBA xlTypePDF問題

excel vba lxtype

c1204994 2023-03-12 00:13:12 ‧ 1631 瀏覽

分享至

大家好, 請大師幫我看看有什麼問題嗎? 一直出現「必須是::識別項」。謝謝!

Sub 列印訂單()

Dim 檔名 As String
檔名 = Format(Range("H9").Value, "00000")

Sheets("訂單").ExportAsFixedFormat_
Type:=xlTypePDF,_
Filename:="\C:\Users\lisa.lee\文件" & 檔名,_
IgnorePrintAreas:=FALSE

End Sub

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

JamesDoge

iT邦高手 1 級 ‧ 2023-03-12 05:10:23

最佳解答

Sub 列印訂單()

Dim fileName As String
fileName = Format(Range("H9").Value, "00000")

Sheets("訂單").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:/Users/lisa.lee/文件/" & fileName & ".pdf", _
    IgnorePrintAreas:=False

End Sub

回應 1
分享
檢舉

c1204994 iT邦新手 5 級 ‧ 2023-03-12 20:44:40 檢舉

謝謝大師幫忙

還有一個問題想請教，空白列=那段黃了, 請問可以怎樣修改嗎? 謝謝你

Sub 儲存訂單()

Dim 貨品數量 As Integer, 空白列 As Integer

貨品數量 = WorksheetFunction.CountA(Sheets("訂單").Range("E16:E29"))
空白列 = Sheets("銷售記錄").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row

Sheets("訂單").Range("E16:H16").Resize(貨品數量).Copy
Sheets("銷售記錄").Range("D" & 空白列).PasteSpecial xlPasteValues

Sheets("銷售記錄").Range("A" & 空白列).Resize(貨品數量).Value = Sheets("訂單").Range("H9").Value
Sheets("銷售記錄").Range("B" & 空白列).Resize(貨品數量).Value = Sheets("訂單").Range("H10").Value
Sheets("銷售記錄").Range("C" & 空白列).Resize(貨品數量).Value = Sheets("訂單").Range("D9").Value

Call 重設表格
MsgBox "資料已儲存"

End Sub

登入發表回應