请各位老师看看EXCEL录制的宏代码，在access的格式下，如何编写代码，谢谢

yanwei82123300

请各位老师看看EXCEL录制的宏代码，在access的格式下，如何编写代码，谢谢

Sub Macro1()
'
' Macro1 Macro
'
'
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
k = 2
For i = 1 To Sheet2.Range("b1") - 1
    If Range("d" & k) <> 1 Then
        'l = Range("d" & k) - 1
        For j = 1 To (Range("d" & k) - 1)
            Rows(k & ":" & k).Select
            Selection.Copy
            Selection.Insert Shift:=xlDown
        Next j
        For l = 1 To (Range("d" & k) - 1)
            Range("c" & (k + l)) = Range("c" & k) + l
        Next l
        
        k = k + Range("d" & k)
    Else
        k = k + 1
    End If
   
Next i
'Range("e1").Value = i
   

End Sub

结果是：

Name	Age	CA	Number
air	20	1	3
air	20	2	3
air	20	3	3
xia	22	4	2
xia	22	5	2
wang	19	6	1
ma	18	7	2
ma	18	8	2

盗梦

不明白前前后后的需求和代码的含义。不过都是vba，vb for application。
你可以定义Excel的Application对象之后，在那些sheet,range,row,selection，前面加上Excel的Application一般就行了

例如 dim xlApp as Excel.Application  或者
dim xlApp as object
set xlApp = createobject("Excel.Application")

Excel vba:
Range("A1")

在Access vba 改成：
xlApp.Range("A1")

yanwei82123300

盗梦 发表于 2015-11-10 12:18
不明白前前后后的需求和代码的含义。不过都是vba，vb for application。
你可以定义Excel的Application对 ...

盗梦 老师，谢谢您的帮助，看看能否将附件中的ACCESS添加个命令按钮，添加一些代码来生成一个临时表，结果和EXCEL的结果一样，谢谢

yanwei82123300

excel中的C列（CA）自动填充断号，并且复制相应的数据，看看ACCESS如何做到，谢谢

风中漫步

这样,你先把数据导入数据库中,然后再处理.感觉会方便许多.

yanwei82123300

风中漫步 发表于 2015-11-10 14:29
这样,你先把数据导入数据库中,然后再处理.感觉会方便许多.

已经导入完成！并且建立了例子，可以在例子上进行修改，谢谢

风中漫步

j=0
for i=dmin(ca) to dmax(ca)'取得最大最小号,循环补号
    if dlookup()<>"" then '看顺序号是否存在,如果存在记住这个号.不记得这个函数怎么用了,你自己找下帮助.其他函数也有可以的,你自行选择.
       j=i
    else '如果不存在则补上
       if j<>0 then
          docmd.exesql("insert into tabel1 select name,age," & j & ",number from excel where ca='" & j & "')'好像是这个执行sql的命令,其他自己改下.
       end
    end
end
basic的东西忘的差不多了,只能帮你这些了

风中漫步

手头没有能跑这个的工具,所以没有调试.你自己改下吧,方法就是这样,你都是元老级的了,这些对你就是毛毛雨啦.

yanwei82123300

风中漫步 发表于 2015-11-10 14:59
手头没有能跑这个的工具,所以没有调试.你自己改下吧,方法就是这样,你都是元老级的了,这些对你就是毛毛雨啦.

谢谢帮助，我这个元老纯粹就是时间堆出来的！谢谢

roych

关于如何拆分的问题，我想，你应该发过不止三个帖子了吧？为什么不找找以前的帖子呢？拿来稍稍改下基本就能拿来用了。
http://www.office-cn.net/thread-113980-1-1.html
我不清楚你是不记得了还是懒得去找。如果是这两者的话，建议你开个淘贴，把自己发过的帖子整理下。如果都不是的话，你是否可以花那么一点点时间理解下ADO，或者理解下别人的编程思路吗？总不能类似的问题问几次吧？
如果你没时间去理解，那我也帮不了你。顺便说一句，我没什么耐性的。不必再私信给我了。