乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 200|回复: 13

EXcel宏

[复制链接]

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 13:09:18 | 显示全部楼层 |阅读模式
我不知道这是不是这个论坛的一个合适的主题。
如果是这样,我需要将2013 excel电子表格中的多个单元格(所有字符串)导出为真正ASCII文本的预定义文件名,覆盖整个文件(如果存在)。
有人能帮我指一下正确的方向吗?
谢谢!-David
ie单元格ct3到ct29和dt3到dt26到c:/acad/proj.dat

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2013-2-22 13:27:30 | 显示全部楼层
最简单的方法是将单元格链接到另一个工作表,然后创建一个宏(可以使用宏记录器)将链接的单元格导出到proj.dat文件中。
http://small business . chron . com/multiple-cells-excel-another-worksheet-35868 . html
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 13:34:40 | 显示全部楼层
谢谢!我正在研究它。我使用非常旧的MS电子表格来添加公式。我会在这里尝试学习曲线。这似乎是值得的。我可能会问更多新手问题。再次感谢!_David
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 13:39:45 | 显示全部楼层
输出格式是什么?如果逗号分隔的可以,只需将其保存为CSV文件即可...
将数据保存到文件中相对简单,但您必须知道您想要的格式...简单的ascii不够具体...您需要每行一个项目还是一行所有内容。您在数据之间使用空格吗?
第5个需要更多输入
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 13:49:03 | 显示全部楼层
好的,我链接了一个新的工作表,数据就在那里。
输出文件:
每个单元格1行
,数据中可能有空格,但读取数据的程序可以补偿
没有空行
,即
type1:electric
type2:right
type3:na
name1:me
anme2:you
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 13:56:34 | 显示全部楼层
所以现在我有
sheet4
单元格a1:a50
现在我必须找到宏重新排序。 你会认为一个突出的按钮是一个丝带(我讨厌丝带)
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 14:22:31 | 显示全部楼层
您必须右键单击功能区并选择自定义。然后在开发人员选项卡上切换。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2013-2-22 14:42:04 | 显示全部楼层
找到了!
了解它是如何工作的。 我宁愿写代码,也不愿使用记录器。 但这还有很长的路要走
。-大卫
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 15:03:01 | 显示全部楼层
录音机会让你开始的
回复

使用道具 举报

86

主题

744

帖子

6

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1092
发表于 2013-2-22 15:10:08 | 显示全部楼层
到目前为止还不错
  1. Sub Macro5()
  2. '
  3. ' Macro5 Macro
  4. '
  5. ' Keyboard Shortcut: Ctrl+k
  6. '
  7.     Sheets("Sheet4").Select
  8.     Application.Goto Reference:="R1C1"
  9.     Range("A1:A50").Select
  10.     ActiveWorkbook.SaveAs Filename:="C:\acad\proj.txt", FileFormat:= _
  11.         xlTextMSDOS, CreateBackup:=False
  12.     Sheets("Sheet1").Select
  13. End Sub

如何防止出现过度写入对话框?
谢谢!-David
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-6-29 17:20 , Processed in 0.309452 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表