Excel Forum

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


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

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


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

ลองเข้าไปโหลดไฟล์ในลิงค์นี้ครับ
viewtopic.php?f=9&t=3228

เป็นการรวมข้อมูลในไฟล์อื่นๆมาไว้ในไฟล์เดียวกัน

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



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 directory
Set objFolder = objFSO.GetFolder("C:\MyFolder")

'Loop through the Files collection and import each workbook
For Each objFile In objFolder.Files
Dim source As Workbook
Set source = Application.Workbooks.Open(objFile.Path, ReadOnly:=True)
ImportWorkbook source, destination
wb.Close
Set wb = Nothing
Next

Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing

End Sub

Sub ImportWorkbook(source As Workbook, destination as Workbook)
'Import each worksheet
For Each sheet In source.Sheets
ImportWorksheet sheet, destination
Next sheet
End Sub

Sub ImportWorksheet(sheet As Worksheet, destination as Workbook)

'Perform your import logic for each sheet here (i.e. Copy from sheet and paste into a
'sheet into the provided workbook)

End Sub

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


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

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


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

ไฟล์ที่คุณโหลดไปนั้นคือไฟล์ที่ใช้รวบรวมข้อมูลจากในหลายๆไฟล์ มารวมอยู่ในชีทเดียว ไฟล์เดียว ครับ เพื่อให้ง่ายในการนำมาแสดงข้อมูลครับ

ส่วนที่คุณถามมานั้น ลองแนบไฟล์ประกอบมาให้ดูหน่อยครับ