Excel Forum

ขอบคุณครับอาจารย์ แต่ เหมือนผมต้องใส่ On Error Resume Next เดียวผมลองนำไปประยุกต์ใช้ดูก่อนครับผม

Option Explicit
Public Sub am()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset


cn.Open "provider=microsoft.ace.oledb.12.0" & ";extended properties=text " & ";data source=C:\Users\somkiat\Desktop\SET-ARCHIVE"
'cn.Open "driver={microsoft access text driver (*.txt, *.csv)}" & ";dbq=C ...

Option Explicit
Public Sub am()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim csql As New ADODB.Recordset
Dim a As Single

cn.Open "provider=microsoft.ace.oledb.12.0" & ";extended properties=text " & ";data source=C:\Users\somkiat\Desktop\SET-ARCHIVE"
'cn.Open "driver={microsoft ...

ขอชุดคำสั่ง ADO เพื่ออ่านไฟล์ excel ครับ

ขอบคุณครับ

ถาม วิธี check รายชื่อไฟล์ก่อนเปิด ว่ามีจริงหรือไม่ครับ

นี้คือชื่อไฟล์ครับ ซึ่งจะรัน วันที่ไปเรื่อยๆครับ คือจะมีบางวันที่ ที่จะไม่มีไฟล์ครับ ไฟล์ ทั้งหมดอยู่ใน folder เดียวกกันครับ

set-history_EOD_2014-01-10



ขอถามเพิ่มเติมครับว่า code ล่างนี้ ใช้ยังไงครับ

Filename = Dir(path & "\*.xls ...

ไม่เข้าใจตรงนี้นะครับ รบกวนด้วยครับ

ErrorHandler:
' Insert code to handle the error here
Resume Next

ถามวิธีใช้ On Error GoTo line ครับ ขอบคุณครับ

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 ...

ด้านล่างคือ code ที่ใช้เปิดไฟล์ที่ชื่อไฟล์ประกอบด้วย ปี เดือน วัน เช่น 2014 01 12 ปัญหาคือ เวลาวน

loop For i = 1 To 31 มันจะมีบางไฟล์ ที่เมื่อวน loop i ไปจะไม่พบ ไฟล์นั้นเพราะ เป็นวันหยุด ไฟล์จะมีเพียงวันจันทร์ถึงศุกร์

อยากสร้างเงื่อนไขที่จะข้าม i นั้นไปได้อย่างไรครับ

Option Explicit
Public Sub ...

ขอบคุณมากครับผมจะนำไปลองใช้ครับ

คือเป็นไฟล์ที่ updateจากแหล่งอื่น มาทุกวันครับ ผมจึงอยากเก็บข้อมูลบางส่วนของไฟล์ให้มาจัดเรียงรวมกันในไฟล์ที่จะนำไปใช้งานต่อครับ

Public Sub openq()
Dim c As Integer, i As Integer, j As Integer


For c = 1 To 3

For i = 1 To 10 '
Sheet1.Cells(i, c) = "= 'C:\Users\somkiat\Desktop\aaa\[" & c & ".xlsx]Sheet1'! cells( " & i & "," & c & ")" <---codeนี้ พิมพ์output= #NAME?


'Sheet1.Cells(i, 1) = "= 'C:\Users\somkiat\Desktop\aaa ...

ขอความกรุณาท่านอาจารย์ผู้รู้ คือจริงๆผมต้องการ out put เป็นอย่างที่อาจารย์ได้เห็นครับ แต่ผมต้องการสร้างโดยการเขียนโดยใช้ vba ครับ ซึ่งผมได้ศึกษามาบ้างดูเหมือนว่าผมต้องเขียนเป็นเกี่ยวกับdata base ใช้ ADO แต่เหมือนจะยุ่งยากเกินไป ผมจึงควรต้องการแค่เปิดมาทีละไฟล์เเล้ว copy มาเรียงไว้ตามลำดับ เเล้วปิด ...

มี 3 files ครับ โดยนำ "colume colse " มาจากไฟล์ ที่เป็นวันที่ ทั้งสองไฟล์ มาต่อกันแบบ vlookup ในไฟล์ s ครับ ขอบคุณครับคืออยากให้วนloop หรือupdate ไฟล์ที่มาใหม่ๆทุกวันด้วยนะครับมาต่อๆกันไปเรื่อยๆนะครับ

Sheet1.Cells(1, 1) = "= 'D:\Work-Analytic\100 ABT-Analytic Base Table\Document\" & "[Map Source - Target.xlsx]Sheet1'!C1"



คือผมอยาก copy ข้อมูลของ columeA ของไฟล์ใดๆ มาเรียงต่อกัน รวมกันในไฟล์ที่ใช้ vba ครับ




อันนี้ผมแก้ตรง columns(1) อย่างเดียว แต่ไม่รู้ในส่วน" Sheet1'!C1 " ต้องแก้เป็นอะไรคร ...

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

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

ซึ่งจะมีหลายเดือน หลายปี หลายวันในช่วงเด ...

คือผมอยากจะเอา ข้อมูลในไฟล์ EOD_2014-02-19, EOD_2014-02-20, EOD_2014-02-21


ในแต่ละ sheet 1ของแต่ละไฟล์ และ ใน colume 1ของแต่ละไฟล์ ทั้งหมด มาต่อกัน (แบบ vlookup) มารวมในอีกชีทครับ
ขอบคุณครับ

ช่วยอธิบายหน่อยครับว่า ผมสามารถนำมาประยุกตย์ใช้แก้ไขปัญหาของผมได้อย่างไรครับ



Sub ImportWorkbooks(destination as workbook)

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Get the folder object associated with the ...

อยากขอตัวอย่างเล็กๆของปัญหาด้านล่างครับขอบพระคุณมากครับ


อยากถามวิธีดึงข้อมูลในไฟล์excel อื่นๆ มาเก็บไว้ในอีกไฟล์หรือแค่เก็บไว้ในตัวแปล โดยมีการดึงมาเก็บทุกๆวันจากการที่ผมโหลดไฟล์excel มาใหม่ทุกวันคับโดยจะเชฟไว้ในโฟลเดอร์เดียวกัน ทุกๆวันครับ และมีการต่อแบบ vlookup ครับ(คือรายชื่อหุ้นในแต่ละวันนั้นม ...