Guest User

Untitled

a guest
May 21st, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. Sub ListFieldADO()
  2.  
  3. strFile = Workbooks(1).FullName
  4. strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
  5. & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
  6.  
  7.  
  8. Set cn = CreateObject("ADODB.Connection")
  9.  
  10. cn.Open strCon
  11.  
  12. ''You can also use the name of a named range
  13. Set rs = cn.OpenSchema(adSchemaColumns, _
  14. Array(Empty, Empty, "Sheet1$"))
  15. While Not rs.EOF
  16. Debug.Print " " & rs!Column_Name
  17. rs.MoveNext
  18. Wend
  19.  
  20. rs.Close
  21. Set rs = Nothing
  22. End Sub
  23.  
  24. Select Top 1 * from [SheetName$]
  25.  
  26. SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = [YourTableName]
Add Comment
Please, Sign In to add comment