|
|
|
รบกวนสอบถามการ Select เลือก Sheet ของ Excel.Application ครับ |
|
|
|
|
|
|
|
ผมขอสอบถามการเลือก Sheet ของ Excel บน VB.NET
เช่น ผมเลือกไฟล์ Excel เข้ามาในโปรแกรม ซึ่งปกติผมจะเขียน Code เป็นแบบนี้
Code (VB.NET)
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim ExcelDataSet As System.Data.DataSet
Dim ExcelAdapter As System.Data.OleDb.OleDbDataAdapter
MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; " + _
"Data Source=" & Label1.Text & ";Extended Properties=Excel 12.0;")
Try
ExcelAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
ExcelAdapter.TableMappings.Add("Table", "Excel Data")
ExcelDataSet = New System.Data.DataSet
ExcelAdapter.Fill(ExcelDataSet)
DataGridView1.DataSource = ExcelDataSet.Tables(0)
MyConnection.Close()
DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0.00"
DataGridView1.Columns(12).DefaultCellStyle.Format = "#,##0.00"
DataGridView1.Columns(13).DefaultCellStyle.Format = "#,##0.00"
DataGridView1.Columns(14).DefaultCellStyle.Format = "#,##0.00"
DataGridView1.Columns(15).DefaultCellStyle.Format = "#,##0.00"
DataGridView1.Columns(17).DefaultCellStyle.Format = "#,##0.00"
Catch ex As Exception
MsgBox("Error: " + ex.ToString, "Import Excel", _
vbOK)
End Try
แต่ผมต้องการจะไม่ fix sheet ตายตัวครับ ให้สามารถเลือกได้ว่าจะเลือก sheet ไหนเข้ามา
ผมจะต้องเขียนโค๊ดแบบไหนครับ
ผมขอขอบคุณผู้รู้ล่วงหน้าสำหรับคำตอบครับผม
Tag : .NET, MySQL, Excel (Excel.Application), Win (Windows App)
|
|
|
|
|
|
Date :
2012-07-13 17:29:40 |
By :
NIFCO |
View :
1124 |
Reply :
2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ขอบคุณมากครับ พี่วิน
|
|
|
|
|
Date :
2012-07-16 11:37:39 |
By :
NIFCO |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 05
|