โค้ดปุ่มimport Excelบางคอลัมน์



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

23 ก.พ. 61 , 09:45:57
อ่าน 563 ครั้ง

Earth

โค้ดปุ่มimport Excelบางคอลัมน์
« เมื่อ: 23 ก.พ. 61 , 09:45:57 »

อยากทราบว่ามีวิธีเขียนโค้ดimport ข้อมูลจากExcel(บางคอลัมน์) มาใส่ในตารางAccessไหมคะ
ตัวอย่างรูปตารางด้านล่างค่ะ ต้องการimport ตั้งแต่คอลัมน์Material




ปล เคยทำแต่importมาตั้งแต่แถวแรก ไม่ทราบวิธีไหนบ้างคะ
ขอบคุณล่วงหน้าค่ะ

 

23 ก.พ. 61 , 10:48:23
ตอบกลับ #1

TTT

> โค้ดปุ่มimport Excelบางคอลัมน์
« ตอบกลับ #1 เมื่อ: 23 ก.พ. 61 , 10:48:23 »
ลองใช้โค้ดประมาณนี้ดูครับ สมมุติไฟล์พาธอยู่ที่ C:\Data\Book1.xlsx นำเข้าเป็นข้อมูลทั้งหมดไม่มีชื่อฟิลด์ ตำแหน่งที่ B5 ถึง M11

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", "C:\Data\Book1.xlsx", False, B5:M11"

ปรับใช้ดูครับ
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator link
 

23 ก.พ. 61 , 16:49:13
ตอบกลับ #2

Earth

> โค้ดปุ่มimport Excelบางคอลัมน์
« ตอบกลับ #2 เมื่อ: 23 ก.พ. 61 , 16:49:13 »
ขอบคุณมากค่ะตอนนี้import excel ได้แล้วค่ะ

แต่ติดตรงimport ไฟล์ .CSV ไม่ได้ค่ะ
ช่วยดูโค้ด importให้หน่อยค่ะ

Application.DoCmd.TransferText acImportDelim, acSpreadsheetTypeExcel9, "StockWMS", (txt_FilePath), True
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 19:07:23 โดย UnKnown »

 

24 ก.พ. 61 , 00:09:47
ตอบกลับ #3

TTT

> โค้ดปุ่มimport Excelบางคอลัมน์
« ตอบกลับ #3 เมื่อ: 24 ก.พ. 61 , 00:09:47 »
ถ้าเป็นการ Import ประเภท Text หรือ CSV จะไม่ Option กำหนด Range ได้นะครับ ต้องนำเข้ามาทั้งหมดก่อนแล้วเขียนโค้ด SQL ตัดช่วงที่ไม่ต้องการออก หรือเอาช่วงที่ต้องการไว้ แล้วแต่ไอเดียที่จะเขียนต่อไปครับ
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator link
 


บอร์ดเรียนรู้ Access สำหรับคนไทย