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 SaveBackup()
Dim D As String
D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"\\192.168.1.253\data\PR\Data PR\BackUp\" & D, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Code: Select all
Sub SaveBackup()
Dim D As String, E As String
D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
E = "Backup " & Format(Date, "dd-mm-yy") & "_backup.xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"\\192.168.1.253\data\PR\Data PR\BackUp\" & E, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
"\\192.168.1.253\data\PR\Data PR\BackUp\" & D, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Code: Select all
Sub SaveBackup()
Dim D As String, FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
D = "Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
ActiveWorkbook.Save
FSO.CopyFile ActiveWorkbook.FullName, "\\192.168.1.253\data\PR\Data PR\BackUp\" & D
End Sub
Code: Select all
Sub SaveBackup()
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs _
"\\192.168.1.253\data\PR\Data PR\BackUp\Backup " & Format(Date, "dd-mm-yy") & ".xlsm"
Application.DisplayAlerts = True
End Sub