代码问题

zhujie　发表于：2011-08-10 11:02:21 　

复制

哪位好心人可以帮我把在Excel中的VBA代码转换到Access?代码覆在下面:

Private Sub CommandButton1_Click()

Sheet7.Range(Cells(2, 1), Cells(1000, 6)).Clear

Dim a As String
Dim b As Date
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
Dim x As String

b = Sheet7.TextBox1

i = 2
j = 2
m = 2
n = 1

a = Sheet3.Cells(i, 16)
x = Sheet3.Cells(i + n, 16)

Do While a <> ""

If Sheet3.Cells(i - 1, 16) <= b And Sheet3.Cells(i, 2) <> "" And Sheet3.Cells(i, 30) <> "ok" Then
Sheet7.Cells(m, 1) = Sheet3.Cells(i, 3)
Sheet7.Cells(m, 2) = Sheet3.Cells(i, 2)
Sheet7.Cells(m, 3) = Sheet3.Cells(i, 9)
Sheet7.Cells(m, 4) = Sheet3.Cells(i, 21)
Sheet7.Cells(m, 5) = Sheet3.Cells(i, 10)
Sheet3.Cells(i, 30) = "ok"

Do While x <> ""
If Sheet3.Cells(i + n, 2) = Sheet3.Cells(i, 3) Then
Sheet3.Cells(i + n, 30) = "ok"

End If

n = n + 1
x = Sheet3.Cells(i + n, 16)

Loop

Sheet3.Cells(i, 31) = Now()
m = m + 1
End If

i = i + 1

a = Sheet3.Cells(i, 16)

Loop

Sheet7.PivotTables("PivotTable1").RefreshTable

End Sub

Top

zhujie 发表于：2011-08-10 11:18:05

一直想把Excel也上传上去,但是一直传不了,下班回家后再试试吧

Top

叶海峰发表于：2011-08-10 12:35:47

Sub b()
    Dim xlapp As Object
    Set xlapp = CreateObject("excel.application")
    xlapp.workbooks.Open (CurrentProject.Path & "\A.xls")
    xlapp.Run "指定宏名"
    xlapp.Quit
    Set xlapp = Nothing
End Sub

这种方法是保留xls文件的宏,不移植到到acc里面,打开文件运行指定宏.

Top

zhujie 发表于：2011-08-11 08:37:29

可以保留写的宏但是表又不能复制进去,怎么弄啊

Top

西出阳关无故人发表于：2011-08-11 22:35:43

问题描述不清

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

代码问题