ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
การทำเช่นนั้นต้องพึ่ง VBA ดูตัวอย่างตาม Link นี้ครับ http://msdn.microsoft.com/en-us/library ... e.10).aspxsnasui wrote:
numilike wrote:snasui wrote:
Code: Select all
Sub Macro1()
Dim cnnDB As ADODB.Connection
Dim rstList As ADODB.Recordset
Set cnnDB = New ADODB.Connection
cnnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=D:\PG\PG2.mdb;"
Set rstList = cnnDB.OpenSchema(adSchemaTables)
With rstList
Do While Not .EOF
If .Fields("TABLE_TYPE") <> "VIEW" Then
Debug.Print .Fields("TABLE_NAME") & vbTab & .Fields("TABLE_TYPE")
End If
.MoveNext
Loop
End With
cnnDB.Close
Set cnnDB = Nothing
End Sub
รันผ่านแล้วค่ะ ขอบคุณมากนะคะsnasui wrote:
Code: Select all
Sub Macro1()
Dim row As Long
Set a = Workbooks("Read_PG.xls").Worksheets("Sheet1")
Dim cnnDB As ADODB.Connection
Dim rstList As ADODB.Recordset
Set cnnDB = New ADODB.Connection
cnnDB.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=D:\PG\PG2.mdb;"
Set rstList = cnnDB.OpenSchema(adSchemaTables)
row = 2
With rstList
Do While Not .EOF
If .Fields("TABLE_TYPE") <> "VIEW" Then
' Debug.Print .Fields("TABLE_NAME") & vbTab & .Fields("TABLE_TYPE")
a.Cells(row, 1) = .Fields("TABLE_NAME")
row = row + 1
End If
.MoveNext
Loop
End With
cnnDB.Close
Set cnnDB = Nothing
End Sub