文本数据导入后的整理问题

WelcomeHxj · 发表于 2009-12-11 17:02

好像不行啊！怎么所有的设备号都是1号啊！里还有2 号 4号 6号。。。。

hupanshan · 发表于 2009-12-11 21:37

你上传的文本文件里只有1个DEVICE号，不知道你那个有多个号的文件是什么样子的，所以也就没法编程处理啦。猜谜编程可比隔山买牛难多啦。

WelcomeHxj · 发表于 2009-12-11 23:41

刚刚做好，总算是把设备号加上去了，不过还是有点小问题，还请老师帮忙看看。还有就是感觉程序不够精简，如能改进就更好了。

hupanshan · 发表于 2009-12-12 20:09

整理数据.rar (12.76 KB, 下载次数: 15)

WelcomeHxj · 发表于 2009-12-13 16:35

谢谢，老师程序真是精练。

WelcomeHxj · 发表于 2009-12-13 22:20

老师我又遇到问题了，我想得到设备的地址就加入了一行：
      If .Range("j" & i) = "DEVICE" Then
                  Rn = Rn + "*" & .Range("j" & i).Address  '这是加入的行
                  d = Val(.Range("l" & i))
            End If
可得到的地址老有重复的，我想可能跟清除无用行有关，但想不出办法来解决，还请老师出出注意。

Workbooks.OpenText Filename:=f, _
Origin:=936, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
Application.DisplayAlerts = True

上面的代码总是在新工作簿中打开文件，能不能再当前工作簿中打开啊？

[ 本帖最后由 WelcomeHxj 于 2009-12-13 23:06 编辑 ]

hupanshan · 发表于 2009-12-14 09:03

可得到的地址老有重复的，我想可能跟清除无用行有关，但想不出办法来解决，还请老师出出注意。
上面的代码总是在新工作簿中打开文件，能不能再当前工作簿中打开啊？

我的格言：方法固然重要，但更重要的是目的。过程固然重要，但更重要的是结果。
你的两个问题目的是什么？要出什么结果？

WelcomeHxj · 发表于 2009-12-14 12:35

是我没有说清楚。该文本文件的下半部分单独列出了前半部分的VOID票的记录，也就是说在我们对文本文件进行格式化后，VOID票是重复的且是跟在最后的，要知道我的设备一共是，1 、2 、3 、4 、6 、17这五台机子，我的解决思路是得到17号机以后的设备号，记录它的地址，然后将下面的数据全部删除。不知道这样的思路是否可取？

第二个问题那是因为我想在正在编辑工作簿中引入数据，而不是另外新建一个工作簿。

hupanshan · 发表于 2009-12-14 13:42

整理数据.rar (15.53 KB, 下载次数: 7)

[ 本帖最后由 hupanshan 于 2009-12-14 13:49 编辑 ]

WelcomeHxj · 发表于 2009-12-14 22:09

还是老师的方法好，我写的代码虽然也能达到目的，可自己都感觉它又臭又长效率还不高，学习了，谢谢。
下面我又要给自己提出新的要求了，那就是格式虽然转换成功了，但数据的金额是否正确还需要校验，因为自己发现下载的数据由于机器的原因多下或漏下，但每个小报表下面的合计数总是正确的，我想将每张票的金额进行合计，然后找到汇总金额进行比对，以判断数据的正确性。
我先自己试着写，要是有不懂的还要麻烦老师，还请老师多多指教，鞠恭。

[ 本帖最后由 WelcomeHxj 于 2009-12-14 22:10 编辑 ]

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

[讨论] 文本数据导入后的整理问题