EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub SlipCreate()
Worksheets("data").Range("A:A").Clear
Worksheets("data").Range("A2").Value = "O"
Sheets("data").Select
Dim i As Integer
Dim fName As String
Dim folderName As String
Dim path As String
path = ThisWorkbook.path & "/Slip/"
i = 2
Do
If Not IsEmpty(Sheets("data").Range("B" & i).Value) Then
fName = "J" & Format(Sheets("data").Range("B" & i).Value, "000000") & "_" & Format(Date, "yyyy") & Format(Date, "mm")
folderName = "J" & Format(Sheets("data").Range("B" & i).Value, "000000")
Sheets("slip").Range("A1").Value = Format(Sheets("data").Range("B" & i).Value, "000000")
Sheets("data").Range("A" & i - 1).ClearContents
Sheets("data").Range("A" & i).Value = "O"
chkFolder path & folderName
ExportPDF path & folderName, fName
Else
Exit Do
End If
i = i + 1
Loop
End Sub
Sub ExportPDF(path As String, fName As String)
Worksheets("slip").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=path & "/" & fName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Sub chkFolder(path As String)
If Len(Dir(path, vbDirectory)) = 0 Then
MkDir path
End If
End Sub
snasui wrote: ไม่สามารถ Save PDF แบบมี Password ได้ด้วย VBA ครับ
แม้แต่ Save ด้วย Manaual ก็ไม่มี Option ให้ Save แบบมี Password ได้ครับ
สอบถามเพิ่มเติมค่ะ
แล้วถ้า จากข้อมูลเป็น Excel ใน 1 file หลายๆ recode สามารถ แยกออกมาแบ่งเป็น file ตาม folder และใส่ Password (Excel) สามารถทำไดไหมค่ะ และ code ในตัวอย่าง ต้องเปลี่ยนตรงไหนบ้างจากเดิมที่ Export to PDF ให้มาเป็น Excel