ขอสอบถามเกี่ยวกับการดึงไฟล์ .csv ครับ
Posted: Wed Oct 11, 2017 8:12 am
ผมต้องการดึงไฟล์ .csv หลายๆไฟล์ แต่ดึงครั้งละ 2 ไฟล์ ต่อ 1 ชั่วโมง แล้วแต่ว่าโค้ดของผมเป็นการดึงแบบเปิดมาที่ละไฟล์แล้ว คัดลอกแล้วว่างแล้วมันทำให้เครื่องคอมค้างครับ ผมจึงอยากจะรู้ว่ามีการดึงข้อมูลจากไฟล์ .csv แบบไม่ต้องเปิดไฟล์ไหมครับหรือมีวิธีอื่นอีกไหมครับที่ทำให้คอมไม่ค้างครับ ขอบคุณมากครับตัวอย่างโค้ดครับ
Code: Select all
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
Dim time As Long
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
delay 1000
End If
strName = Dir
Loop
Application.DisplayAlerts = True
End Sub