Excel Forum

เราสามารถวน loop เพื่อเปิด ไฟล์ excel ได้ไหมครับ ตามรายชื่อไฟล์ เช่น set-history_EOD_2014-01-02, set-history_EOD_2014-01-03, set-history_EOD_2014-01-04 .....

อยากให้ช่วยพิจาราณา ส่วนด้านล่างด้วยนะครับผมไม่รู้ syntax ที่จะใช้กับชื่อของไฟล์ที่เป็นวันที่นะครับ

ซึ่งจะมีหลายเดือน หลายปี หลายวันในช่วงเดือนครับ เช่น 2014<= 2014 then_ 04<=04 then_02>วันที่เมื่อวาน(01)

ขอบคุณครับ

สามารถ Loop ได้ด้วย VBA ซึ่งต้องเขียนมาก่อน ติดตรงไหนค่อยถามกันต่อครับ

Option Explicit
Public Sub am()
Dim a As Single, k As Single, i As Single, j As Single, l As Single, countdateconvert As Single, iii As Single, count As Single, alldate As Single, datetonine As Variant
Dim monthtonine As Variant, c As Variant, d As Variant, countdate As Variant, jj As Variant, ii As Variant, year As Integer, allmonth As Single, monthuntilnine As Integer
On Error Resume Next
count = 1
For year = 2013 To 2014
For allmonth = 1 To 12
If monthuntilnine = allmonth < 10 Then
monthuntilnine = allmonth
monthtonine = "0" & monthuntilnine
For alldate = 6 To 31
If alldate < 10 Then
datetonine = "0" & alldate
count = count + 1
Workbooks.Open "C:\Users\somkiat\Desktop\ccc\set-history_EOD_" & 2014 & "-" & monthtonine & "-" & datetonine & "" ปัญหาอยู่บรรทัดนี้ครับ
Resume Next
For iii = 2 To 10
Workbooks("vba1").Worksheets(1).Cells(iii, count).Formula = "=VLOOKUP(A" & iii & ",'C:\Users\somkiat\Desktop\ccc\[set-history_EOD_2014-" & monthtonine & "-" & datetonine & ".csv]set-history_EOD_2014-" & monthtonine & "-" & datetonine & "'!$A$1:$G$1133,6,0)"
Next iii
Workbooks("set-history_EOD_2014-" & monthtonine & "-" & datetonine & ".csv").Close
Else '¶éÒÇѹ·ÕèäÁèãªèÇѹ·Õè1¶Ö§9 ¡ç¤×ÍÇѹ·Õè10¶Ö§31
count = count + 1 '¹Ñº¨Ó¹Ç¹Çѹ·Õèà¾ÔèÁ¢Öé¹ä»àÃ×èÍÂæ
Workbooks.Open "C:\Users\somkiat\Desktop\ccc\set-history_EOD_" & 2014 & "-" & monthtonine & "-" & alldate & "" 'à»Ô´ä¿Åì
For iii = 2 To 10 '¨Ó¹Ç¹ÃÒª×èÍËØé¹·Ñé§ËÁ´·ÕèàÅ×Í¡äÇé
Workbooks("vba1").Worksheets(1).Cells(iii, count).Formula = "=VLOOKUP(A" & iii & ",'C:\Users\somkiat\Desktop\ccc\[set-history_EOD_2014-" & monthtonine & "-" & alldate & ".csv]set-history_EOD_2014-" & monthtonine & "-" & alldate & "'!$A$1:$G$1133,6,0)" 'à¢Õ¹ÊÙµÃŧcells
Next iii
Workbooks("set-history_EOD_2014-" & monthtonine & "-" & alldate & ".csv").Close '»Ô´ä¿Åì·Õèà»Ô´
End If
Next alldate

Else '¶éÒäÁèà´×͹·Õè1¶Ö§9 ¤×Íà´×͹·Õè10¶Ö§12
For alldate = 1 To 31 'ǹÇѹ·Õè1¶Ö§31
If alldate < 10 Then 'àªç¤à§×è͹ä¢ÇèÒà»ç¹Çѹ·Õè1-9
datetonine = "0" & alldate 'ÊÃéÒ§µÑÇá»ÃÇѹà¾×èÍ·Õè¨Ð¹Óä»à»Ô´ª×èÍä¿Åì
count = count + 1 '¹Ñº¨Ó¹Ç¹Çѹ·Õèà¾ÔèÁ¢Öé¹ä»àÃ×èÍÂæ
'Workbooks.Open "C:\Users\somkiat\Desktop\ccc\set-history_EOD_" & 2014 & "-" & allmonth & "-" & datetonine & "" 'à»Ô´ä¿Åì
For iii = 2 To 10 '¨Ó¹Ç¹ÃÒª×èÍËØé¹·Ñé§ËÁ´·ÕèàÅ×Í¡äÇé
Workbooks("vba1").Worksheets(1).Cells(iii, count).Formula = "=VLOOKUP(A" & iii & ",'C:\Users\somkiat\Desktop\ccc\[set-history_EOD_2014-" & allmonth & "-" & datetonine & ".csv]set-history_EOD_2014-" & allmonth & "-" & datetonine & "'!$A$1:$G$1133,6,0)" 'à¢Õ¹ÊÙµÃŧcells
Next iii
Workbooks("set-history_EOD_2014-" & allmonth & "-" & datetonine & ".csv").Close '»Ô´ä¿Åì·Õèà»Ô´
Else '¶éÒÇѹ·ÕèäÁèãªèÇѹ·Õè1¶Ö§9 ¡ç¤×ÍÇѹ·Õè10¶Ö§31
'Workbooks.Open "C:\Users\somkiat\Desktop\ccc\set-history_EOD_" & 2014 & "-" & allmonth & "-" & alldate & "" 'à»Ô´ä¿Åì
For iii = 2 To 10 '¨Ó¹Ç¹ÃÒª×èÍËØé¹·Ñé§ËÁ´·ÕèàÅ×Í¡äÇé
Workbooks("vba1").Worksheets(1).Cells(iii, count).Formula = "=VLOOKUP(A" & iii & ",'C:\Users\somkiat\Desktop\ccc\[set-history_EOD_2014-" & allmonth & "-" & alldate & ".csv]set-history_EOD_2014-" & allmonth & "-" & alldate & "'!$A$1:$G$1133,6,0)" 'à¢Õ¹ÊÙµÃŧcells
Next iii
Workbooks("set-history_EOD_2014-" & allmonth & "-" & alldate & ".csv").Close '»Ô´ä¿Åì·Õèà»
End If
Next alldate
End If
Next allmonth
Next year
End Sub

ที่คุณถามครั้งก่อนที่ ...
http://www.snasui.com/viewtopic.php?f=3&t=6582
code ที่อรวีร์ตอบทดลองดูหรือยังคะ ผลเป็นอย่างไร
เรื่องเดียวกันนี้ คุณกระจายถาม 3 post รวมทั้งที่
http://www.snasui.com/viewtopic.php?f=3&t=6591
------------
อ้อ กฏของ Forum ที่นี่ไม่ควรใช้คำว่า "คับ" นะคะ