ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub Button1_Click()
'ActiveSheet.Range("B7").CurrentRegion.Select
ActiveSheet.Range("BA7", _
ActiveSheet.Range("a7").End(xlDown).End(xlToLeft)).Select
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer
Dim data_line As String
Dim aa As String
' Prompt user for destination file name.
'DestFile = InputBox("Enter the destination filename" & _
' Chr(10) & "(with complete path and extension):", _
' "Quote-Comma Exporter")
' Obtain next free file handle number.
FileNum = FreeFile()
' Turn error checking off.
On Error Resume Next
'Fix output file path to D:\xxxx.txt
DestFile = "D:\098533326_659498369_TOLRINGDFD_" & _
Format(Now(), "YYYYMMDD") & _
Format(Time(), "hhmmss") & "999" & ".txt"
' Attempt to open destination file for output.
Open DestFile For Output As #FileNum
' If an error occurs report it and end.
If Err <> 0 Then
MsgBox "Cannot open filename " & DestFile
End
End If
' Turn error checking on.
On Error GoTo 0
Print #FileNum, "SOF"
Print #FileNum, "# 65-949-8369"
Print #FileNum, "# TOLRINGCCP"
Print #FileNum, "# DFD 1.1"
' Loop for each row in selection.
For RowCount = 1 To Selection.Rows.Count
data_line = ""
' Loop for each column in selection.
' column 12-103 is number
For ColumnCount = 1 To Selection.Columns.Count
' Write current cell's text to file with quotation marks.
'column number
If (ColumnCount >= 12) And (ColumnCount <= 103) Then
'And ColumnCount
'If ColumnCount = 11 _
'Or ColumnCount = 14 _
'Or (ColumnCount >= 16 _
And ColumnCount <= 67) Then
If Selection.Cells(RowCount, ColumnCount).Text <> "" Then 'not blank
' Print #FileNum, Selection.Cells(RowCount, _
' ColumnCount).Text;
data_line = data_line & Selection.Cells(RowCount, _
ColumnCount).Text
End If
Else ' column not number
If Selection.Cells(RowCount, ColumnCount).Text <> "" Then 'not blank
' Print #FileNum, """" & Selection.Cells(RowCount, _
' ColumnCount).Text & """";
data_line = data_line & """" & Selection.Cells(RowCount, _
ColumnCount).Text & """"
Else
data_line = data_line & """" & """"
' Print #FileNum, """" & """", 'write "" to file
End If
End If
If ColumnCount = Selection.Columns.Count Then
' If so, then write a blank line.
' Print #FileNum,
Else
data_line = data_line & ","
' Print #FileNum, ",",
End If
' Start next iteration of ColumnCount loop.
Next ColumnCount
Print #FileNum, data_line
' Print #FileNum,
' Start next iteration of RowCount loop.
Next RowCount
' Close destination file.
Print #FileNum, "EOF"
Close #FileNum
MsgBox "Already created to file path " & DestFile
End Sub
สามารถเปลี่ยนเป็นตามด้านล่างครับวันวานยังหวานอยู่ wrote:ถ้าผมจะให้มันไปดึงรหัสสินค้าที่ sheet QPM_DFD ช่อง F2 ต้องแก้ไขโค้ดตรงใหนครับ 999 คือรหัสสินค้า ไม่สะดวกเป็นอย่างมากเพราะบางคนเปิดมาโครไม่เป็น
Format(Time(), "hhmmss") & "999" & ".txt" อยู่บรรทุดที่ 23 ครับรหัสอาจจะมีหลากหลาย เช่น 895 เป็นต้น
Code: Select all
Format(Time(), "hhmmss") & Sheets("QPM_DFD").Range("F2").Value & ".txt"Code: Select all
Sub Button1_Click()
'ActiveSheet.Range("B7").CurrentRegion.Select
ActiveSheet.Range("BA7", _
ActiveSheet.Range("a7").End(xlDown).End(xlToLeft)).Select
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer
Dim data_line As String
Dim aa As String
' Prompt user for destination file name.
'DestFile = InputBox("Enter the destination filename" & _
' Chr(10) & "(with complete path and extension):", _
' "Quote-Comma Exporter")
' Obtain next free file handle number.
FileNum = FreeFile()
' Turn error checking off.
On Error Resume Next
'Fix output file path to D:\xxxx.txt
DestFile = "D:\098533326_659498369_TOLRINGDFD_" & _
Format(Now(), "YYYYMMDD") & _
Format(Time(), "hhmmss") & Sheets("QPM_DFDQPM_DFD").Range("F2").Value & ".txt"
' Attempt to open destination file for output.
Open DestFile For Output As #FileNum
' If an error occurs report it and end.
If Err <> 0 Then
MsgBox "Cannot open filename " & DestFile
End
End If
' Turn error checking on.
On Error GoTo 0
Print #FileNum, "SOF"
Print #FileNum, "# 65-949-8369"
Print #FileNum, "# TOLRINGCCP"
Print #FileNum, "# DFD 1.1"
' Loop for each row in selection.
For RowCount = 1 To Selection.Rows.Count
data_line = ""
' Loop for each column in selection.
' column 12-103 is number
For ColumnCount = 1 To Selection.Columns.Count
' Write current cell's text to file with quotation marks.
'column number
If (ColumnCount >= 12) And (ColumnCount <= 103) Then
'And ColumnCount
'If ColumnCount = 11 _
'Or ColumnCount = 14 _
'Or (ColumnCount >= 16 _
And ColumnCount <= 67) Then
If Selection.Cells(RowCount, ColumnCount).Text <> "" Then 'not blank
' Print #FileNum, Selection.Cells(RowCount, _
' ColumnCount).Text;
data_line = data_line & Selection.Cells(RowCount, _
ColumnCount).Text
End If
Else ' column not number
If Selection.Cells(RowCount, ColumnCount).Text <> "" Then 'not blank
' Print #FileNum, """" & Selection.Cells(RowCount, _
' ColumnCount).Text & """";
data_line = data_line & """" & Selection.Cells(RowCount, _
ColumnCount).Text & """"
Else
data_line = data_line & """" & """"
' Print #FileNum, """" & """", 'write "" to file
End If
End If
If ColumnCount = Selection.Columns.Count Then
' If so, then write a blank line.
' Print #FileNum,
Else
data_line = data_line & ","
' Print #FileNum, ",",
End If
' Start next iteration of ColumnCount loop.
Next ColumnCount
Print #FileNum, data_line
' Print #FileNum,
' Start next iteration of RowCount loop.
Next RowCount
' Close destination file.
Print #FileNum, "EOF"
Close #FileNum
MsgBox "Already created to file path " & DestFile
End Sub
ผม Copy ชื่อชีทมาวางซ้ำ ได้กลับไปแก้ใน Code ด้านบนให้แล้ว หรือสามารถจะ Copy code ด้านล่างไปใช้ได้เลยครับ
Code: Select all
Format(Time(), "hhmmss") & Sheets("QPM_DFD").Range("F2").Value & ".txt"Code: Select all
Sub Button3_Click()
'Range("A4" & LastRow).Select
'Range("A6").End(xlDown).Select
'Range("A4").End(xlRight).Select
ActiveSheet.Range("c5", _
ActiveSheet.Range("a4").End(xlDown).End(xlToLeft)).Select
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer
Dim data_line As String
Dim RowCo As Integer
Dim ColumnCo As Integer
Dim aa As String
' Prompt user for destination file name.
'DestFile = InputBox("Enter the destination filename" & _
' Chr(10) & "(with complete path and extension):", _
' "Quote-Comma Exporter")
' Obtain next free file handle number.
FileNum = FreeFile()
On Error Resume Next
'Fix output file path to D:\xxxx.txt
DestFile = "D:\098533326_659498369_TOLRINGMF_" & _
Format(Now(), "YYYYMMDD") & _
Format(Time(), "hhmmss") & "968" & ".txt"
' Attempt to open destination file for output.
Open DestFile For Output As #FileNum
' If an error occurs report it and end.
If Err <> 0 Then
MsgBox "Cannot open filename " & DestFile
End
End If
Code: Select all
Sub Button1_Click()
...
Button3_Click
End Subวันวานยังหวานอยู่ wrote:ขอบคุณครับ แต่พอผมไปเปิดใน Dirve D ที่เป็นปลายทาง ไฟล์ MF เหลือแค่นี้ครับ
SOF
# 65-949-8369
# TOLRINGCCP
"1","2",3
EOF
จริงๆ แล้วมันต้องเป็นแบบนี้อะครับ
SOF
# 65-949-8369
# TOLRINGCCP
"FILE_NAME","FILE_CREATION_DATE","NUMBER_OF_RECORDS"
"098533326_659498369_TOLRINGDFD_20120229162214123.txt","20120229162214123",5
EOF
เกิดจากอะไรหรือครับ
ลองตรวจสอบโดยการกดแป้น F8 เพื่อ Run ทีละ Step ดูว่าผิดพลาดตรงไหน แล้วแจ้งมา จะได้ช่วยกันดูต่อครับ ความผิดปกติหมายถึง ค่าไหนที่ Code ควรจะนำมาบันทึกแต่ข้ามไปไม่บันทึก ไม่ใช่ว่า Run แล้วมีการฟ้องให้ทำการ Debug ครับ คงเข้าใจคลาดเคลื่อนครับ