数据自动录入VBA求编

wang94103 · 发表于 2013-6-26 07:58

grf1973 发表于 2013-6-25 15:57
请看附件。前提是分表已经做好。不然会报错。而且里面数据填写是否正确没有检查。

谢谢这么快解决，但因为孩子生病了，几天内无法试用，可能过几天还要麻烦您！！！再次感谢！！！

wang94103 · 发表于 2013-6-26 08:01

hehex 发表于 2013-6-25 16:19
请参考附件如下：

谢谢您的帮助，我已下载，但孩子生病，无法马上试用，过后有问题再向您请教，希望您不要嫌烦和我的水平太低，再次表示感谢！！！

wang94103 · 发表于 2013-6-26 10:28

hehex 发表于 2013-6-25 16:19
请参考附件如下：

经过使用，可以使用，但有一个小问题，就是录入后会把分表“AAA","BBB","CCC"l里的计算库存的公式也弄没了，其它没发现什么问题。再次感谢！！！！

wang94103 · 发表于 2013-6-26 10:31

grf1973 发表于 2013-6-25 15:57
请看附件。前提是分表已经做好。不然会报错。而且里面数据填写是否正确没有检查。

已简单使用，没发现什么问题，如有问题再向您请教，再次感谢！！

hehex · 发表于 2013-6-26 11:32

本帖最后由 hehex 于 2013-6-26 11:35 编辑

wang94103 发表于 2013-6-26 10:28
经过使用，可以使用，但有一个小问题，就是录入后会把分表“AAA","BBB","CCC"l里的计算库存的公式也弄没了 ...

当时就没太注意后面有使用公式，很简单，在复制数据之后将上面的公式也拉下来。使用filldown 方法就好了。
已经修改程序达成效果：

Sub Â¼Èë()
Application.ScreenUpdating = False
Dim conn As Object, xrow As Long, brow As Long, i As Long, sqlstr$, sAdress$, sht As Worksheet
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
sAdress = Range("a3", Cells(Rows.Count, "i").End(xlUp)).Address(0, 0)
For Each sht In Worksheets
If sht.Name <> "Â¼Èë" Then
sqlstr = Select 日期,摘要,收入数量,发出数量,库存,备注,批号,小号 from [录入$" & sAdress & "] where 产品 = '" & sht.Name & "'"
With sht
xrow = .[a65535].End(xlUp).Row + 1
.Range("a" & xrow).CopyFromRecordset conn.Execute(sqlstr)
brow = .[a65535].End(xlUp).Row
Range(.Cells(4, "e"), .Cells(brow, "e")).FillDown
End With
End If
Next
Sheets("录入").Activate
Range(Range("a4"), Cells(Rows.Count, "i")).ClearContents
Set conn = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

hehex · 发表于 2013-6-26 11:36

请参考附件：

wang94103 · 发表于 2013-6-26 21:50

hehex 发表于 2013-6-26 11:36
请参考附件：

谢谢您，我会继续努力学习的。

wang94103 · 发表于 2013-6-26 22:01

grf1973 发表于 2013-6-25 15:35
那这样还是在“录入”表中录完后一次导入吧。用窗体不适合你想一次输入N条记录的情况。具体代码我来弄一下。 ...

还有一个问题想请您帮助，就是录入表里的输入拼音自动变汉字的方法，A列是我从网上下载的，我想在C和G列也实现，不知是否可行？？如可行，如何修改？？？谢谢！！！！

录入表格.rar (52.86 KB, 下载次数: 28)

wang94103 · 发表于 2013-6-27 07:10

wang94103 发表于 2013-6-26 22:01
还有一个问题想请您帮助，就是录入表里的输入拼音自动变汉字的方法，A列是我从网上下载的，我想在C和G列也 ...

我自己把A列的代码复制修改了一下，基本也能输入了，但出现了一个问题：就是出现重码的时候不能输入，就是如果BBB有两个产品的话，C列G列就不能自动上汉字，也没有出现选择，直接录入了“BBB”，但A列就可以。我不知问题出在哪。帮我修改下可以吗？？我把代码复制到WORD里了。谢谢！！！！！

改代码.rar (5.11 KB, 下载次数: 20)

grf1973 · 发表于 2013-6-28 15:17

把原来的代码改了一下。第二张表里输入中文后可直接生成拼音。第一张表里点选A列单元格后可选择框内点选，也可输入拼音简写。CG列的参照就行，不难的。

		自动登录	找回密码
密码			免费注册