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 Macro1()
'
' Macro1 Macro
'
'
Set cell_to = Cells(1, 1)
Set active_workbook = ActiveWorkbook
Set active_sheet = ActiveSheet
Application.DisplayAlerts = False
File_Path = "D:\MMCT\MMCT\excel\"
strName = Dir(File_Path & "\" & "*.csv")
Dim X
Dim Y
Dim z
Y = 2
X = 2
Do While strName <> vbNullString
If active_workbook.Name <> strName And strName <> "" Then
Workbooks.Open Filename:=File_Path & "\" & strName
Set dataset_workbook = ActiveWorkbook
Range("Z2:BG31").Select
RowInc = Selection.Rows.Count
Selection.Copy
Windows("workbook1.xlsm").Activate
Sheets("RawData").Select
Cells(Y, 2).Select
ActiveSheet.Paste
Worksheets("RawData").Cells(X, 1).Value = Now()
Y = Y + RowInc
X = X + RowInc
dataset_workbook.Close
UserForm1.Hide
delay 10000
End If
strName = Dir
Loop
Application.DisplayAlerts = True
End Sub
' Sub Macro2()
Code: Select all
Sub Macro1()
'
' Macro1 Macro
'
'
Set cell_to = Cells(1, 1)
Set active_workbook = ActiveWorkbook
Set active_sheet = ActiveSheet
Application.DisplayAlerts = False
File_Path = "D:\MMCT\MMCT\excel\"
strName = Dir(File_Path & "\" & "*.csv")
Dim X
Dim Y
Dim z
Y = 2
X = 2
Do While strName <> vbNullString
If active_workbook.Name <> strName And strName <> "" Then
Workbooks.Open Filename:=File_Path & "\" & strName
Set dataset_workbook = ActiveWorkbook
Range("Z2:BG31").Select
RowInc = Selection.Rows.Count
Selection.Copy
Windows("workbook1.xlsm").Activate
Sheets("RawData").Select
Cells(Y, 2).Select
ActiveSheet.Paste
Worksheets("RawData").Cells(X, 1).Value = Now()
Y = Y + RowInc
X = X + RowInc
dataset_workbook.Close
UserForm1.Hide
delay 10000
End If
strName = Dir
Loop
Application.DisplayAlerts = True
End Sub