GBKEE

¦^´_ 4# Blade
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub PrintPDF()
   
3.     Dim File_Name As String, xFile As String, xName As String
   
4.     xFile = Range("D6")
   
5.     xName = Range("M7")
   
6.     File_Name = xFile & "-" & xName & ".pdf"
   
7.     Do
   
8.         File_Name = InputBox("¥t¦s·sÀÉ", "[ÀɮצsÀÉ]", File_Name)
   
9.         If File_Name = "" Then
   
10.             Exit Sub
    
11.         Else
    
12.             If Dir(File_Name) <> "" Then
    
13.                 If MsgBox("ÀɮצWºÙ¸g¦s¦b,Âл\¥¦", vbYesNo) = vbYes Then
    
14.                     Exit Do
    
15.                 Else
    
16.                     File_Name = ""
    
17.                 End If
    
18.             End If
    
19.         End If        
    
20.     Loop While Not UCase(File_Name) Like "*.PDF"
    
21.    Application.DisplayAlerts = False
    
22.    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    
23.         xFile & "-" & xName & ".pdf", Quality:=xlQualityStandard, _
    
24.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
25.     Application.DisplayAlerts = True
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# Blade
¦³¦ó°ÝÃD¶Ü?

GBKEE

¦^´_ 8# Blade
Name ,File  ¬OVBA¨Ï¥ÎªºÃöÁä¦r  ÅܼÆ,µ{§Ç¦WºÙ­nÁקK¨Ï¥Î

1. Option Explicit
   
2. Sub PrintPDF()
   
3.     Dim File_Name As String, xFile As String, xName As String
   
4.     xFile = Range("D6")
   
5.     xName = Range("M7")
   
6.     File_Name = xFile & "-" & xName & ".xlsm"
   
7.     'File_Name = xFile & "-" & xName & ".pdf"
   
8.     Do
   
9.         File_Name = InputBox("¥t¦s·sÀÉ", "[ÀɮצsÀÉ]", File_Name)
   
10.         If File_Name = "" Then
    
11.             Exit Sub
    
12.         Else
    
13.             If Dir(File_Name) <> "" Then
    
14.                 If MsgBox("ÀɮצWºÙ¸g¦s¦b,Âл\¥¦", vbYesNo) = vbYes Then
    
15.                     Exit Do
    
16.                 Else
    
17.                     File_Name = ""
    
18.                 End If
    
19.             End If
    
20.         End If
    
21.     'Loop While Not UCase(File_Name) Like "*.XLSM"   'UCase(File_Name) ¤j¼g *.XLSM
    
22.     Loop While Not LCase(File_Name) Like "*.xlsm"   'LCase(File_Name) ¤p¼g *.xlsm
    
23.     Application.DisplayAlerts = False
    
24.     ActiveWorkbook.SaveAs Filename:=File_Name
    
25.     File_Name = Replace(LCase(File_Name), "*.xlsm", ".dbf")  '°ÆÀɦW´À´«¬° "dbf"
    
26.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    
27.         xFile & "-" & xName & ".pdf", Quality:=xlQualityStandard, _
    
28.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
29.     Application.DisplayAlerts = True
    
30. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# Blade
¨C¦¸µo³æ®É¡A¥t¦s«á³£¬O®æ¦¡ INV12345_·|­û½s¸¹1_«È¤á¦WºÙ1.pdf
¨ì¤F¤U¤@±i³æ®É¡A¦o¤S§Ñ¤F§ó§ïINV12345¡A¦]¦¹·|¥X²{ INV12345_·|­û½s¸¹2_«È¤á¦WºÙ2.pdf
½Ð°Ý:¬°¦ó·|¦Û°Ê¥[1??

1. Option Explicit
   
2. Sub Ex()
   
3.     ChDrive "C:\"            'Âà´«¨Ï¥Î¤¤ªººÏºÐ¾÷
   
4.     ChDir "C:\test"          '§ïÅܨϥΤ¤¥Ø¿ý©ÎÀɮק¨¡C
   
5.     ChDir "D:\test"          '§ïÅÜ«D¨Ï¤¤ºÏºÐ¾÷¥Ø¿ý©ÎÀɮק¨
   
6.     MsgBox CurDir            '¶Ç¦^¨Ï¥Î¤¤ºÏºÐ¾÷:ªºªº¸ô®|
   
7.     ChDrive "D:\"            'Âà´«¨Ï¥Î¤¤ªººÏºÐ¾÷
   
8.     MsgBox CurDir            '¶Ç¦^¨Ï¥Î¤¤ºÏºÐ¾÷:ªºªº¸ô®|
   
9.     '** ¦p³o¼Ë¨Ï¥Î¤¤ªººÏºÐ¾÷¤£¬Od
   
10.     If Mid(CurDir, 1, 1) <> "d" Then ChDrive "d:\"
    
11.     ChDir "d:\Account book\INV\"
    
12.    
    
13.    
    
14.    ' **** ©Î¬O¥[¤W¸ô®|****
    
15.     ActiveWorkbook.SaveAs Filename:="d:\Account book\INV\" & File_Name
    
16. 
    
17.     File_Name = Replace(LCase(File_Name), "*.xlsm", ".dbf")  '°ÆÀɦW´À´«¬° "dbf"
    
18. 
    
19.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    
20.         "d:\Account book\INV\" & File_Name, Quality:=xlQualityStandard, _
    
21.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
22. '    ***************
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# Blade

1. If Dir("¦s©ñ¸ê®Æ§¨¥þ³¡¸ô®|\" & "[µo²¼½s¸¹]" & "*.pdf ") <> "" Then
   
2.         MsgBox "µo²¼½s¸¹ ¤w¶}¥X"
   
3.         Exit Sub
   
4.     End If

½Æ»s¥N½X

GBKEE

¦^´_ 14# Blade

1. If Dir("d:\Account book\INV\*" &  xSNo  & "*.pdf ") <> "" Then

½Æ»s¥N½X

GBKEE

¦^´_ 16# Blade

1.      If Dir("d:\Account book\INV\*" & xSNo  & "*.pdf ")<> "" Then
   
2.      MsgBox "µo²¼½s¸¹   "& xSNo&"   ¤w¶}¥X"
   
3.     Exit Sub

½Æ»s¥N½X

GBKEE

¦^´_ 18# Blade
¤W¶Ç¦sÀɳo¤u§@ªí,¬Oµ{¦¡½X ¬Ý¬Ý

GBKEE

¦^´_ 20# Blade
¬O17#ªºµ{¦¡½X¦³»~ ¤w­×¥¿

GBKEE

¦^´_ 22# Blade
20#  If Dir("d:\Account book\INV\*" & " xSNo " & "*.pdf ") <> "" Then
¦h¤F¨â­Ó"   ,   " xSNo " ¬°¦r¦ê-> "d:\Account book\INV\* xSNo  *.pdf "  

¥¿½T:
If Dir("d:\Account book\INV\*" & xSNo & "*.pdf ") <> "" Then
¦p xSNo="test"
¦r¦ê="d:\Account book\INV\*" & "test"& "*.pdf "