|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
我觉得代码太多,看不懂呀,有没有简单一点的,高手们...
Public Sub RunMacro()
Run ("'" + ActiveWorkbook.Path + "\找出meta_data.xls'!Module1.ActiveWorkSheet_To_Table")
Workbooks("找出meta_data.xls").Close
Dim lcConnectString, lcCommandText As String
Dim loADODBConnection As Variant
Dim loADODBRecordset As Variant
lcConnectionString = "Driver={Microsoft Excel Driver (*.xls)}; " & _
"DBQ=c:\cell_meta_data.xls;" & _
"ReadOnly=True"
lcCommandText = "select 地址, '前段' + mid(文本,2) + '后段' as 新文本 from [cell_meta_data$]"
Set loADODBConnection = CreateObject("ADODB.Connection")
Set loADODBRecordset = CreateObject("ADODB.Recordset")
loADODBConnection.Open lcConnectionString
loADODBRecordset.Open lcCommandText, loADODBConnection, 3, 1, 1
Sheets.Add
Dim loRange As Range
While Not loADODBRecordset.EOF
Set loRange = Sheets(1).Range(loADODBRecordset.Fields("地址").Value)
loRange.Value = loADODBRecordset.Fields("新文本").Value
loADODBRecordset.MoveNext
Wend
loADODBConnection.Close
Sheets(1).Cells.EntireColumn.AutoFit
End Sub |
|