copy แล้วลองปิด File excel ต้นฉบับ แล้วกดวางใหม่  >> ทำขั้นตอนนี้แล้วไม่สามารถวางข้อมูลในไฟล์ใหม่ได้ค่ะ (ไม่มีข้อมูลถ้าปิดไปก่อน)
 

ปกติเวลาเรากด Copy แล้วกด ปิดมันจะมี Msgbox ขึ้นมาแบบนี้

ให้เรากด Yes จากนั้น ก็เปิด Excel อันใหม่ขึ้นมาแล้วกด วาง ได้คับ

ส่วนสาเหตุอื่นๆ คงต้องดูที่ Code ที่ Import หรือส่วนประกอบอื่นๆ แล้วละครับ
หรือส่งไฟล์มาทาง Line ก็ได้ครับ เดี่ยวดูให้เดี่ยวทัก Inbox ไป

error ถึงการอ้างถึง ฟิล F22  มีอยู่จริงหรือเปล่าครับ ถ้า Import จาก excel .xls ให้เปลี่ยนไปนำเข้าจาก ไฟล์ csv ดูครับ

ยินดีครับพี่ ผมใส่ ตัวเปลี่ยนภาษาไทยเอาไว้ให้พี่ด้วย ถ้าต้องการให้เป็นภาษาไทยก็ใช้

call KeyTh

ได้เลยนะครับ

ขอดูข้อมูลจากตารางที่อิมพอตมาหน่อยครับ

VDO นี้น่าตรงตามที่ต้องการครับ

เป็นการใช้ Combobox คู่กับ Listbox ครับ VDO มีหลาย Part นะครับ เขาสอนตั้งแต่เริ่มสร้าง จนเสร็จสิ้นเลย อธิบายละเอียดมาก
ผมว่า คำสั่งมันเยอะไป เลยให้ทดลองทำเองเลยน่าจะดีกว่าครับ

ไม่เห็นมีข้อมูลอะไรให้ดูเลย

ด้านบนมีให้ใส่ วันที่ๆ จะแสดงข้อมูลครับ ข้อมูลที่เขาใส่มามีแค่เดือน 1 ถึงเดือน 2 ท่านมากดดูวันที่ปัจจุบันคือเดือน 3 มันเลยไม่โชว์ครับ

ใช้แบบนี้ดูครับซ่อน เลขหน้า หน้าสุดท้าย

Private Sub Report_Load()
If Me.Page = Me.Pages Then
Me.Section(acPageHeader).Visible = False
End If
End Sub

สวัสดีครับได้แล้วครับพี่

ผมทำตัวอย่างด้วย กดปุ่มเพื่อไปเลือกไฟล์ที่จะ นำเข้าข้อมูลโดย ใช้ Function ไปไว้ใน Module
Function selectFile()
    Dim fd As FileDialog, fileName As String
 
On Error GoTo ErrorHandler
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    fd.AllowMultiSelect = False
 
    If fd.Show = True Then
        If fd.SelectedItems(1) <> vbNullString Then
            fileName = fd.SelectedItems(1)
        End If
    Else
       
        End
    End If
 
   
    selectFile = fileName
 
    Set fd = Nothing
 
Exit Function
 
ErrorHandler:
    Set fd = Nothing
    MsgBox "Error " & Err & ": " & Error(Err)
 
End Function
ส่วนคำสั่งในการนำเข้าผมใส่ไว้ใน ปุ่ม CommandButton
Private Sub Import_Click()
Dim today As String
today = Now()
          DoCmd.SetWarnings False
          DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "table1", selectFile, True
          Me.stamp = "Update : " & today
              Call saveMemoDate
              Call filltextbox
          DoCmd.SetWarnings True
End Subตรง table1 คือ table ใน Access ที่จะนำเข้าข้อมูล จากไฟล์ Excel
ส่วนการกำหนด วันที่ เราอัพโหลดนั้น ผมใช้ Today() เพราะมันจะเก็บเวลาไว้ด้วย จึงกำหนดตัวแปรเก็บค่าไว้ และเมื่อกด นำเข้าไฟล์
ที่ textBox ชื่อ Stamp จะแสดงวันที่และเวลานำเข้า และจะบันทึกไว้ใน Table ชื่อ MemoDate ที่ได้สร้างไว้เก็บวันที่ นำเข้าข้อมูล
ส่วน คำสั่งในการบันทึกเวลา นำเข้าก็คือ
Sub saveMemoDate()
 On Error GoTo Err_Err
        Set DB = CurrentDb()
        Set rs = DB.OpenRecordset("Memodate", DB_OPEN_DYNASET)
   
    rs.Edit
    rs![Date] = stamp
   
    rs.Update
   
Exit_err:
        Exit Sub
Err_Err:
        MsgBox Error$
        MsgBox ("Data fail try again")
        Resume Exit_err
End Sub

คำสั่งดึงข้อมูลจาก Record ของ ตาราง Memodate ชื่อ Date มาแสดงบน Textbox ชื่อ Stamp
Sub filltextbox()
 On Error GoTo Err_Err
        Set DB = CurrentDb()
        Set rs = DB.OpenRecordset("Memodate", DB_OPEN_DYNASET)
           Me.stamp = rs![Date]
Exit_err:
        Exit Sub
Err_Err:
        MsgBox Error$
        MsgBox ("Data fail try again")
        Resume Exit_err
End Subขั้นตอนสุดท้ายถ้าเราจะให้เปิดฟอร์มมาแล้ว แสดงวันที่นำเข้าล่าสุดก็ไปที่ form event  on load
ใส่
Call filltextbox
เพื่อให้แสดงค่าวันที่ๆเราบันทึกล่าสุดของตาราง MemoDate นั้นเองครับ

ขอดูคำสั่งที่ กด report หน่อยครับเดี่ยวผมคำสั่งให้