搜索
bottom↓
回复: 15

在一个打开的excel, 想把其中一个单元格内容,保存为txt文件

[复制链接]

出0入0汤圆

发表于 2018-12-8 13:03:36 来自手机 | 显示全部楼层 |阅读模式
excel是打开的,单元格已经在不断的刷新,这个已经做到了。
接下来想把这个单元格的内容保存为一个独立的txt文档,这个动作是动态的,求助。

阿莫论坛20周年了!感谢大家的支持与爱护!!

如果想吃一顿饺子,就得从冰箱里取出肉,剁馅儿,倒面粉、揉面、醒面,擀成皮儿,下锅……
一整个繁琐流程,就是为了出锅时那一嘴滚烫流油的热饺子。

如果这个过程,禁不住饿,零食下肚了,饺子出锅时也就不香了……《非诚勿扰3》

出0入33汤圆

发表于 2018-12-8 13:34:12 | 显示全部楼层
VBA应该可以

出0入0汤圆

发表于 2018-12-8 13:50:26 来自手机 | 显示全部楼层
单元格是不停在刷新吗?存txt是每次覆盖内容还是append的方式

出0入0汤圆

发表于 2018-12-8 13:54:30 | 显示全部楼层
VBA搞excel非常方便。

出0入0汤圆

发表于 2018-12-8 16:34:59 | 显示全部楼层
保存单元格内容应该有个事件去触发它吧,另外单元格内容是自动刷新还是人工输入的?因为单元格里有编辑的光标期间,vba程序好像是不运行的

出0入0汤圆

发表于 2018-12-8 20:44:51 | 显示全部楼层
本帖最后由 mcucow 于 2018-12-8 20:46 编辑
nanfang2000 发表于 2018-12-8 13:50
单元格是不停在刷新吗?存txt是每次覆盖内容还是append的方式


你很专业    想听听具体的

出0入0汤圆

发表于 2018-12-8 20:45:54 | 显示全部楼层
本帖最后由 mcucow 于 2018-12-8 20:48 编辑
vvwvvw 发表于 2018-12-8 16:34
保存单元格内容应该有个事件去触发它吧,另外单元格内容是自动刷新还是人工输入的?因为单元格里有编辑的光 ...


楼主位已经说,单元格内容是自动刷新, 这个已经实现

动态刷新保存成txt, 好像有难度

出110入93汤圆

发表于 2018-12-8 21:32:05 | 显示全部楼层
你的意思是单元格内容自动刷新是你做的?
既然如此,应该VBA编程没什么问题吧,那存 txt 不是很简单么?

看下图,应该清楚了吧,不清楚再去搜索一下这个 FileSystemObject 对象。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

出0入0汤圆

 楼主| 发表于 2018-12-10 11:15:46 | 显示全部楼层
memstone 发表于 2018-12-8 21:32
你的意思是单元格内容自动刷新是你做的?
既然如此,应该VBA编程没什么问题吧,那存 txt 不是很简单么?

非常感谢  先自己消化一下

出0入17汤圆

发表于 2018-12-10 12:27:13 | 显示全部楼层
zajia 发表于 2018-12-10 11:15
非常感谢  先自己消化一下

请教单元格是如何自动刷新的?

出0入0汤圆

 楼主| 发表于 2018-12-10 12:46:38 | 显示全部楼层
newuseruser 发表于 2018-12-10 12:27
请教单元格是如何自动刷新的?

不是自己做的, 是买设备带的XLAM,加载项运行后自动刷新

出0入0汤圆

 楼主| 发表于 2018-12-11 15:11:19 | 显示全部楼层
memstone 发表于 2018-12-8 21:32
你的意思是单元格内容自动刷新是你做的?
既然如此,应该VBA编程没什么问题吧,那存 txt 不是很简单么?

非常感谢, 现在已经可以实现, 而且是动态的(A1单元格变化了,就保存最新的)

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("a1")) Is Nothing Then

    Open ThisWorkbook.Path & "\A1.txt" For Output As #1
    Print #1, CStr(Sheets(1).Cells(1, 1).Value)
    Close #1

End If

End Sub


新的问题, 若是        A1单元格是键盘输入的,这代码完全OK, 但是单元格是另一个VBA刷出来的, 就不能trigger这个事件, 还有其他办法吗?

出0入0汤圆

 楼主| 发表于 2018-12-11 15:13:16 | 显示全部楼层
想比较单元格的内容来trigger,苦于VBA不熟啊,求助

出110入93汤圆

发表于 2018-12-11 15:19:32 | 显示全部楼层
zajia 发表于 2018-12-11 15:13
想比较单元格的内容来trigger,苦于VBA不熟啊,求助

你比较也只能定时触发,不能保证是不是有遗漏。
最妥的办法,还是找一下那个VBA的触发代码,加到那里去最好。
查找一下 value =,这样的代码,能不能有发现

出0入0汤圆

发表于 2018-12-11 15:22:07 来自手机 | 显示全部楼层
Delphi 可以解决

出0入0汤圆

 楼主| 发表于 2018-12-12 12:08:08 | 显示全部楼层
memstone 发表于 2018-12-11 15:19
你比较也只能定时触发,不能保证是不是有遗漏。
最妥的办法,还是找一下那个VBA的触发代码,加到那里去最 ...

已经搞定 谢谢帮助


Dim oldval

Private Sub Worksheet_Activate()

    oldval = [a1]

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    If oldval <> [a1] Then

        oldval = [a1]

        '在此输入操作代码

    End If

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

    '你的代码语句

Application.EnableEvents = True

End Sub
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-3-28 20:48

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

快速回复 返回顶部 返回列表