|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
类似LENGTH,CONCAT,UPPER这样的函数都无法使用 是什么原因呢
Sub sql()
Dim i%, wb As Workbook, cnn As Object, rst As Object, strPath$
Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
Application.FileDialog(msoFileDialogFilePicker).Show
Set cnn = CreateObject("adodb.connection")
strPath = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=0';Data Source=" & strPath
Set rst = cnn.Execute("SELECT LENGTH(地区) FROM [SHEET1$];")
Cells.ClearContents
For i = 0 To rst.Fields.count - 1
Cells(1, i + 1) = rst.Fields(i).Name
Next
Range("A2").CopyFromRecordset rst
cnn.Close: Set cnn = Nothing
SendKeys "%{f4}"
End Sub
|
|