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 ExpGPAVicha()
Dim sFolderPath As String
Dim wb1 As Workbook
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim Path As String
Dim FName As String
On Error Resume Next
Application.ScreenUpdating = False
sFolderPath = "C:\" & Range("A20").Value
If Dir(sFolderPath, vbDirectory) = "" Then
MkDir sFolderPath
End If
Set wb1 = ThisWorkbook
Set ws1 = wb1.Sheets("ExPublish2")
FName = ws1.Range("K2") & ".xlsx"
ws1.Range("A:G").Copy
Set wb2 = Workbooks.Add
With wb2.ActiveSheet.Range("A:G")
.PasteSpecial (xlValues)
.PasteSpecial (xlFormats)
Range("A2").Select
Application.DisplayAlerts = True
End With
Application.DisplayAlerts = False
' wb2.SaveAs FileFormat:="Excel Files (*.XLSX), *.XLSX"
wb2.SaveAs Filename:=sFolderPath & "\" & FName
Application.CutCopyMode = False
wb2.Close
Application.ScreenUpdating = True
' Sheets("ScoreVicha").Select
MsgBox "ส่งออกไฟล์ไปไว้ที " & "C:\" & Range("A20").Value & "\" & Worksheets("ExPublish2").Range("K2").Value & ".xlsx" & " เรียบร้อยแล้ว"
on error resume next
ให้เป็น Comment เสียก่อน > ทดสอบ > ช่วยแจ้งมาอีกรอบว่าติดปัญหาที่บรรทัดไหน อย่างไรครับ