Snasui Excel Forum

Public Class Form10

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Form1.Show()
Me.Hide()

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Form1.Show()
Me.Hide()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
InFile = OpenFileDialog1.SafeFileName
Label2.Text = InFile

Else
Label2.Text = "ยังไม่กำหนดไฟล์ตัวอย่าง"
End If
End Sub

Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
SaveFile = OpenFileDialog1.SafeFileName
Label3.Text = SaveFile

Else
Label3.Text = "ยังไม่กำหนดไฟล์ตัวอย่าง"
End If
End Sub

Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

End Sub


Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

// ในส่วนนี้ที่เป็นปัญหา
End Sub

End Class

- รับค่าไฟล์ใส่ใน Button1_Click และ Button2_Click
- ต้องการ copyข้อมูลใน Button1_Click ใส่ ไฟล์ excel ที่รับมา Button2_Click
- // ในส่วน Button3_Click เป็นส่วนที่เขียนโค้ดเพื่อ copy ข้อมูลค่ะ

-สอบถามวิธีการทำ หรือแนวทางในการทำค่ะ
ขอบคุณค่ะ

แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยทดสอบได้ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบน ด้วยครับ

สำหรับการโพสต์ Code ให้เป็น Code ดูได้ที่นี่ครับ viewtopic.php?f=3&t=1187