Jump to content

How can I transform this VBA code to Au3 code?


qinylj
 Share

Recommended Posts

This is a fragment code write with VBA,How can I transform it to Au3 code,especially "TableRst!TABLE_NAME"。

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;  Data Source=" & FileName & ";Extended Properties='Excel 8.0;IMEX=1;HDR=no'"
    Set TableRst = DB.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
    TableRst.MoveFirst
    While Not TableRst.EOF
    Table = TableRst!TABLE_NAME
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...