VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
123
返回列表 发新帖
楼主: SengChuary

[求助] VB 文本框+保存按钮读写excel操作,有酬谢

[复制链接]
发表于 2018-11-12 19:36:07 | 显示全部楼层
没空啊。写了下,没怎么测试,你自己测试一下。
已实现 日期_时间_操作员(文本框内字符任意)_Sample ID输入的内容.xlsx 命名

倒不是麻烦,都是几条指令,只是我不太明白你最后那个Operator什么的意思,描述的不是很清楚。

生成EXCEL.zip

2.69 KB, 下载次数: 16

回复 支持 反对

使用道具 举报

发表于 2018-11-12 19:37:39 | 显示全部楼层
没空啊。写了下,没怎么测试,你自己测试一下。
已实现 日期_时间_操作员(文本框内字符任意)_Sample ID输入的内容.xlsx 命名

倒不是麻烦,都是几条指令,只是我不太明白你最后那个Operator什么的意思,描述的不是很清楚。

生成EXCEL.zip

2.69 KB, 下载次数: 15

回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-11-12 22:33:16 | 显示全部楼层
mapletreekc 发表于 2018-11-12 19:37
没空啊。写了下,没怎么测试,你自己测试一下。
已实现 日期_时间_操作员(文本框内字符任意)_Sample ID输 ...

那个只是输入操作员,就是看是谁操作记录的
回复 支持 反对

使用道具 举报

发表于 2018-11-13 08:46:27 | 显示全部楼层
SengChuary 发表于 2018-11-12 22:33
那个只是输入操作员,就是看是谁操作记录的


"Operator内容以第一次的为建表时为主,后面有变动要把这个Operator之前的表名字段的Operator内容换掉保存新的Operator内容,同时Sample ID的输入内容不变还是那张表,其它内容数据照样按之前保存数据序号累计增加,文档时间以以点击保存按钮的日期时间来变更即可。"

Operator我不管你这个是什么意思,是操作员也好,其它什么也好。我说你描述不清楚,是指你描述你想要实现的功能,指你上面的一段话,我不清楚。

我举个例子:
比如:Operator文本框对应EXCEL表中C列,C列中所有记录都为"小明",Sample ID为:123456,而当我这次Operator变为"小红",Sample ID依然为:123456时:1、那是直接把新的数据放到最后一行;2、要把小明替换为小红,然后再把新的数据保存到最后一行。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-11-13 10:57:48 | 显示全部楼层
mapletreekc 发表于 2018-11-13 08:46
"Operator内容以第一次的为建表时为主,后面有变动要把这个Operator之前的表名字段的Operator内容换掉 ...

兄弟操作过程有错误,我录制了个视频,两个问题:
1.比如操作过程输入ID4556,OP123,test123,就新建一个名为20181112_224640_ID4556_OP123.xlsx文件是没问题,如果改动第三个文本框的内容test123为test12324应该还是保存到这个文件名为20181112_224640_ID4556_OP123.xlsx里,而不是在新建一个;
2.还是那个操作窗,ID4556不变,改变OP123为OP789,改变test123为其它随意字符safsaf,点击保存出错,如果保存的话应该是上一个20181112_224640_ID4556_OP123.xlsx里只是点击保存最后的储存时间保存,上一个文件名20181112_224640_ID4556_OP123.xlsx保存时应该变更为20181112_225040_ID4556_OP789.xlsx,数据还是在同一个文件里不应再多出一个文件。
回复 支持 反对

使用道具 举报

发表于 2018-11-13 22:35:35 | 显示全部楼层
本帖最后由 mapletreekc 于 2018-11-13 22:57 编辑
SengChuary 发表于 2018-11-13 10:57
兄弟操作过程有错误,我录制了个视频,两个问题:
1.比如操作过程输入ID4556,OP123,test123,就新建一个 ...


xlbook.SaveAs "D:\data\" & Format(Now(), "yyyymmdd_hhmmss") & "_" & Text1.Text & "_" & Text2.Text & ".xlsx" '如需要存放到其它路径,请更改此处D:\"
把这句改为下面的:
xlbook.SaveAs "D:\data\" & Format(Now(), "yyyymmdd_hhmmss") & "_" & Text2.Text & "_" & Text1.Text & ".xlsx" '如需要存放到其它路径,请更改此处D:\"
保存文件时把ID和OP的顺序错了


时间变更那个,你看下程序的修改吧

生成EXCEL.zip

2.71 KB, 下载次数: 21

回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-11-14 14:23:14 | 显示全部楼层
mapletreekc 发表于 2018-11-13 22:35
xlbook.SaveAs "D:\data\" & Format(Now(), "yyyymmdd_hhmmss") & "_" & Text1.Text & "_" & Text2.Tex ...

辛苦兄弟,有个问题,我直接用你发给我运行就没问题,当我搬到我的工程里运行就出错了下面如图,哪里还需要设置吗?

31.jpg
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-11-14 15:28:35 | 显示全部楼层
SengChuary 发表于 2018-11-14 14:23
辛苦兄弟,有个问题,我直接用你发给我运行就没问题,当我搬到我的工程里运行就出错了下面如图,哪里还需 ...

已找到问题所在,辛苦兄弟!
回复 支持 反对

使用道具 举报

发表于 2019-2-17 22:51:43 | 显示全部楼层
不错, 学习下            
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-6-27 00:44

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表