我是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
答案 0 :(得分:1)
试试看->
window.addEventListener('wheel', function(e) {
direction = e.deltaY
if (direction > 0) {
console.log('scrolling up')
}else{
console.log('scrolling down')
}
})