等　级：版主
威　望：178
帖　子：3293
专家分：21129
/question/
★★★★★为人民服务★★★★★
等　级：版主
威　望：84
帖　子：2571
专家分：14936
给个我想的思路啊。
读一行，然后分解，可以使用 split 命令
中中|123|321|123
分解为一个 一维数组。
1、使用SQL命令添加记录方式
&&&然后定义二个变量，
一个保存 字段名，一个保存内容。
当 数组维数大于字段序号，则组合内容， 最后取完数组完，提交给数据库进行保存。
2、使用添加命令。
当数组维数大于字段序号，则该字段给值，最后取完数后，更新。
'--------SQL----------
dim fj() as string
dim M as string&&& 'M为一行的内容
dim SQLF as string '保存字段名
dim SQLD as string '保存值
fj=split(M,&|&)
if ubound(fj)&=0 then&&&&&'最少有一个元素
&&&sqlf=sqlf & &,& & &姓名&
&&&sqld=sqld & &,& & fj(0)&&&&&&&&'这里要进行字符串加引号处理，此处省略，你测试时必须增加
if ubound(fj)&0 then&&&&&'最少有二个元素
&&&sqlf=sqlf & &,& & &基础&
&&&sqld=sqld & &,& & fj(1)&&&&&&&&
最后组合为SQL 的添加记录命令。
授人于鱼，不如授人于渔
早已停用QQ了
版权所有，并保留所有权利。
Powered by , Processed in 0.018045 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved求救！VBA编程 - 『 VBA交流 』 -
OFFICE精英俱乐部 OFFICE|WORD|EXCEL|ACCESS|OUTLOOK|PPT|VBA|软件开发|办公应用 - Powered by Discuz!
求救！VBA编程
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
求救！VBA编程
请各位版主帮忙
& & 一个工作薄中有五个工作表，分别是&未付款&、&已核销&、&问题&、&差异&和一个SHEET表,能否将SHEET表中A列值等于&未付款&的行剪切放入&未付款&表中,等于&已核销&的行放入&已核销&表,&问题&和&差异&也一样,(A列中的值只会有这四种),剪切完毕后将SHEET表删除.
& & 这过程如何用VBA实现!
& & 先谢谢大家
UID5807&帖子1277&精华4&积分651&水晶631 枚&威望0 点&阅读权限100&性别男&注册时间&
用以下代码，但有个前提：A列数据区域不要有空单元格，A1不是数据行，可以是字段名
Sub pastedata()
& &Application.ScreenUpdating = False
& &Application.DisplayAlerts = False
& &For i = 1 To 4
& &Sheets(&SHEET&).Activate
& &Cells.AutoFilter Field:=1, Criteria1:=Choose(i, &差异&, &已核销&, &未付款&, &问题&)
& &Set objrange = Cells(1, 1).CurrentRegion
& &objrange.Offset(1, 0).Resize(objrange.Rows.Count - 1, 1).EntireRow.Copy
& &Sheets(Choose(i, &差异&, &已核销&, &未付款&, &问题&)).Activate
& &Cells(1.1).Select
& &ActiveSheet.Paste
& &Sheets(&SHEET&).Delete
& &Application.DisplayAlerts = True
& &Application.ScreenUpdating = True
不论我的回复有否帮上你,希望都能回贴告诉我结果
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
表名不固定
我的SHEET表名不是固定的，因为这个宏是用来核销往来帐，所以表名是随着供应商号随机变化的，另外数据区域中有空值，所以请大侠~~~（我上传例子吧）
[ Last edited by tlxhcy on
at 09:20 ]
附件: 您需要才可以下载或查看附件。没有帐号？
UID5807&帖子1277&精华4&积分651&水晶631 枚&威望0 点&阅读权限100&性别男&注册时间&
运行前要将活动工作表设成SHEET表
附件: 您需要才可以下载或查看附件。没有帐号？
不论我的回复有否帮上你,希望都能回贴告诉我结果
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
可以用了，谢谢大侠！
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
为什么这个文件不行
请大侠帮我查一下为什么这个文件不能用这个宏
附件: 您需要才可以下载或查看附件。没有帐号？
UID5807&帖子1277&精华4&积分651&水晶631 枚&威望0 点&阅读权限100&性别男&注册时间&
再加个判断
附件: 您需要才可以下载或查看附件。没有帐号？
不论我的回复有否帮上你,希望都能回贴告诉我结果
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
可以了，THANKS
大侠功力高深，吾辈自叹不如！！！
UID5606&帖子1271&精华4&积分2916&水晶2891 枚&威望1 点&阅读权限80&注册时间&
Originally posted by whm999 at
用以下代码，但有个前提：A列数据区域不要有空单元格，A1不是数据行，可以是字段名
Sub pastedata()
& &Application.ScreenUpdating = False
& &Application.DisplayAlerts = False
& &For i = 1 To 4
是分组筛选的经典例子，很好！
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
请大侠再看一次
大侠帮我看看怎么这个表不能用
附件: 您需要才可以下载或查看附件。没有帐号？
UID5807&帖子1277&精华4&积分651&水晶631 枚&威望0 点&阅读权限100&性别男&注册时间&
在& &Sheets(sn).Activate后再加一句
& &Cells.AutoFilter
不论我的回复有否帮上你,希望都能回贴告诉我结果
UID7862&帖子56&精华0&积分176&水晶176 枚&威望0 点&阅读权限15&性别女&注册时间&
这句有问题
但是运行宏时，这句有问题
Sheets(Choose(i, &差异&, &已核销&, &未付款&, &问题&)).Activate
但我把位置改了一下似乎可行
Sub pastedata()
Application.ScreenUpdating = False
& &Application.DisplayAlerts = False
& &sn = ActiveSheet.Name
& &For i = 1 To 4
& &If Not Columns(&H:H&).Find(What:=Choose(i, &差异&, &已核销&, &未付款&, &问题&)) Is Nothing Then
& &Cells.AutoFilter Field:=8, Criteria1:=Choose(i, &差异&, &已核销&, &未付款&, &问题&)
& &Set objrange = Cells(8, 1).CurrentRegion
& &objrange.Offset(1, 0).Resize(objrange.Rows.Count - 1, 1).EntireRow.Copy
& &Sheets(Choose(i, &差异&, &已核销&, &未付款&, &问题&)).Activate
& &Cells(1.1).Select
& &ActiveSheet.Paste
& &Sheets(sn).Activate
& &Cells.AutoFilter
& &Sheets(sn).Delete
& &Application.DisplayAlerts = True
& &Application.ScreenUpdating = True
[ Last edited by tlxhcy on
at 13:47 ]
[通过 QQ、MSN 分享给朋友]求助两道ACCESS的VBA编程题，二级计算机考试的，各位大神帮帮忙，谢谢了，很急很急。
[问题点数：80分，结帖人u]
求助两道ACCESS的VBA编程题，二级计算机考试的，各位大神帮帮忙，谢谢了，很急很急。
[问题点数：80分，结帖人u]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。access_vba_编程_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者贡献于
评价文档：
140页免费76页免费164页免费227页免费52页免费 34页免费99页4下载券30页免费140页1下载券4页免费
喜欢此文档的还喜欢5页4下载券
access_vba_编程|
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：1.53MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
ACCESS_VBA编程
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口