如何用vba实现附件中的操作

附件

导入新品.zip(13.48 KB)

2011-8-9 11:32, 下载次数: 7

复制内容到剪贴板

代码:

录制宏就可以了。以下为录制
Sub Macro1()
Sheets("Sheet2").Range("A1:E62").Copy
Sheets("Sheet4").Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet3").Range("A1:E62").Copy
Sheets("Sheet4").Range("b1").Select
ActiveSheet.Paste
   
End Sub

EH导入新品.rar (15.86 KB)
下载次数: 0

复制内容到剪贴板

代码:

Sub ADO_Method()
    Dim sSql As String
    Dim cnn, rst
    Set cnn = CreateObject("adodb.connection")
    Set rst = CreateObject("adodb.recordset")
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.Properties("extended properties") = "Excel 8.0;HDR=NO;IMEX=1"
    cnn.Open "Data Source = " & ThisWorkbook.FullName & ";"
    sSql = "select T1.F1,T2.F1,T2.F2,T2.F3,T2.F4 from [sheet2$] AS T1,[sheet3$] AS T2 order by  T1.F1"
    Set rst = cnn.Execute(sSql)
    Sheet4.[a1].CopyFromRecordset rst
    rst.Close: cnn.Close
    Set rst = Nothing: Set cnn = Nothing
End Sub