使用MS Access VBA打开Excel文件并将数据从一张纸移动到另一张纸

问题描述

我是VBA Excel Access的新手。我在基于Access的数据中创建了一个宏命令按钮,该按钮应打开一个excel文件并将数据从sheet1移到sheet2。现在,当数据移至sheet2时,应在更新的c列中添加一个备注。但是,在sheet2中已经存在一个数据,因此它应该将数据粘贴到sheet2中现有数据的下方。 Excel sheet1

在此工作表2中,已有数据。现在,我的宏应该将数据粘贴到sheet2中现有数据的下方

我遇到多个错误 我在Access VBA中创建了此宏,因为我已经有一个宏可以从对Excel文件的访问中导出数据。 在下面的这个代码中,我希望宏将数据从工作表1移到工作表2,在工作表2中,它应该将数据粘贴到退出数据下方,状态为已更新。

请帮助。

我的代码:-

Option Compare Database
Option Explicit

Private Sub UpdateXL()

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim wr As Excel.Worksheet
Dim ws As Excel.Worksheet
Dim LastRow As Long
Dim i As Long
Dim lr As Long

Set xl = CreateObject("Excel.Application")

Set wb = xl.Workbooks.Open("C:Destination.xlsm")

Set wr = wb.Worksheets("Sheet1")

Set ws = wb.Worksheets("Sheet2")

 

    'Copies then cuts the data from Sheet1" and paste the same in sheet2
   
    With wr
        'LastRow = .Cells(.Rows.Count,1).End(xlUp).Row
        
        lr = wr.Cells(Rows.Count,1).End(xlUp).Row + 1
        
        Range("A2:B" & LastRow).Cut ws.Range("A2") 'Cut
        
    End With
    
    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row

    With ws
    
        LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
        For i = 2 To .Cells(.Rows.Count,"B").End(xlUp).Row
         .Cells(i,"B") = Trim(.Cells(i,"B"))
            Select Case .Range("B" & i)
                Case "FXV","FST","FLB","FFH","FFJ"
                    .Range("C" & i) = "Updated"
            End Select
        Next i
    End With
    
    
End Sub

解决方法

试试看->

window.addEventListener('wheel',function(e) {
    direction = e.deltaY

    if (direction > 0) {
        console.log('scrolling up')
    }else{
        console.log('scrolling down')
    }
})

Sample Screenshot

相关问答

Selenium Web驱动程序和Java。元素在(x,y)点处不可单击。其...
Python-如何使用点“。” 访问字典成员?
Java 字符串是不可变的。到底是什么意思?
Java中的“ final”关键字如何工作?(我仍然可以修改对象。...
“loop:”在Java代码中。这是什么,为什么要编译?
java.lang.ClassNotFoundException:sun.jdbc.odbc.JdbcOdbc...