关于用vba把excel中的数据保存到一个csv文件中。

Question

用的是ActiveSheet.SaveAs "c:\aaaaa.csv", xlCSV 这样网上搜的方法。文件也保存了。数据也对。可是 本身的宏文件的xls的名字看见变成了那个csv的名字。如果这时候保存的话 还会提示一些信息说不能保存之类的。因为是日文看不懂。反正宏文件的xls的最上面是的名字是变成了csv的名字。这是什么原因，跪求解决办法。excle用的是03版的。。。还有在宏的excle上的button和text框上都有阴影，去10版本的excle就没问题。怎么解决。开发环境就必须是03的 纠结。

Answer 1


网页
问问
科学
知识
更多

搜索
关于用vba把excel中的数据保存到一个csv文件中._约127个回答_搜狗知识
急!!!!怎么样用VBA将EXCEL信息出力到一个CSV文件中啊??
[最佳答案] 把你的指定单元格的内容 放到一个新的Sheet中 并把这个Sheet设置为当前活动的Sheet 然后使用下面的代码 Sub SaveAsCSV() ActiveSheet.SaveAs ＂c:\aaaaa.csv＂, xlCSV End Sub比如你原来有3个Sheet 那你可...
搜狗问问
2009-02-05
关于用vba把excel中的数据保存到一个csv文件中.
SaveAs就是“另存为”的动作.执行完SaveAs后,当前文件就变成了“另存为”的文件(原始文件当然还在),这时不用再保存,直接关闭即可.(如果保存,就是再次...
搜狗问问
2013-04-27
vb 输入数据,保存在一个CSV档内
CSV其实就是一个文本文件,用追加方式(Append)写入就行了.
百度知道
2009-03-09
搜狗知识
查看更多
VBA实现保存Excel多个工作表中的选择区域为CSV文件 - sduzhijian的...
因此采用VBA实现保存Excel多个工作表中的选择区域为CSV文件。首先在Excel选择需要导出的工作表(选择的方法是:点击选择第一个工作表,然后按下ctrl同时再点击其它工作表),选择之后,运行下...
CSDN博客
如何从多个csv文件中计算数据并提取,最终汇总到一个excel表里?_知乎
回答:8个浏览:798次
用VBA可以做,类似的示例https://www.bilibili.com/video/BV1qx411g7a9/www.bilibili.com

知乎
2020-04-18
93%的人还搜了
excel的vba数据比较vba不打开excel读取数据
vba读取excel文件数据vba遍历文件夹中的文件
vba打开excel文件并写入excel中使用vba抓取数据
excel怎么用vba提取数据vba读取指定excel文件
使用VBA,快速导入CSV文件内容到EXCEL表格 - 简书
前几日遇到一个将几十个商品二维码数据文件导入到EXCEL中,做格式转换再导入数据库的问题。拿到的原始表格是将近100个CSV格式的文本文件,每个文件中大概有几万到十几万行数据不等。这么大...
简书
excel-vba - 宏-要从/使用多个工作簿创建一个[的.csv]文件,保存的文...
我有一个包含在它们中的每多个工作表多于一个的Excel工作簿。 我想有一个宏,帮助我创造(合并从信息)的所有工作表到一个管道[|]分隔[.CSV]的文件。 这些片材应合并/所附到[的.csv]文件,在这些...
stackoverrun.com
Excel 恳求大神,从大量CSV文件中导出需要的数据到EXCEL 非常感...
回帖数:29 发表时间:2014-12-06
恳求大神,从大量CSV文件中导出需要的数据到EXCEL ~指教.zip(11.09 KB, 下载次数: 20)2014-12-6 22:55 上传 点击文件名下载附件 导入CSV数据 参见附件.指教.rar 2014-12...

http://club.excelho...
Excel 批量转换一个文件夹里的csv格式为xls或xlsx格式-ExcelVBA程序...
我知道可以打开csv文件后可以选择另存为xls或xlsx格式,但是这种方法工作效率很低,现在就想知道能否通过VBA代码批量进行操作。要求:把一个文件夹里面所有csv格式的文档全部转换为xls或xlsx格...
club.excelhome.net
如何保持领先的零当在Excel中打开一个CSV文件_蔡亚婷_新浪博客
第5步Excel的向导 - 步骤3 在第3步,突出列需要前导零和改变“列数据格式”任何“文本”。这将保留任何前导零。点击完成 第6步 最后,保存为一个文件从Excel。CSV格式。这就是它!
新浪博客
导入或导出文本(.txt 或.csv)文件 - Ex...
当Excel 打开 .csv 文件时,它将使用当前默认数据格式设置来解释如何导入每个数据列。 如果想要更灵活地将列转换为不同的数据格式,可以使用 ＂导入文本向导＂。 例如,.csv 文件中数据列的格式...
微软
关于VBA中 新建CSV文件 保存成文本格式的问题 有代码-CSDN论坛
宏EXCEL VBA 读取 文本文件 宏VBA Fans读取和写入UTF-8 格式文本文件 NULL 博文链接:https://992012.iteye.com/blog/1856853 outlook VBA 自动 保存 邮件及附件 代码 VBA 批量获取模块 中的代码 ...
CSDN论坛
下一页

使用搜狗搜索APP
不管搜多长，我都能帮你忙
立即体验
相关搜索
vba读取excel一列数据vbaexcel数据自动导入
vba获取excel文件数据vba中要进行读文件操作
vba按路径打开excel文件vba 打开指定的excel
vba不打开文件写入数据vba调用excel表格数据
vba不打开excel就读取内容vba打开excel文件代码

搜索
首页-导航- 免责-用户反馈
© 2020 SOGOU.COM

Answer 2

SaveAs就是“另存为”的动作。

执行完SaveAs后，当前文件就变成了“另存为”的文件（原始文件当然还在），这时不用再保存，直接关闭即可。（如果保存，就是再次保存为CSV文件，而CSV文件能包含宏代码，所以有警告，但不是不能保存）。
其余的问题看不懂……
扩展资料
delphi 中把 dbgrid 中的数据 保存到excel 表中
我想在窗口上加个按钮 ，点击他 把查询出来的数据，另存到一个excel 表中。怎样实现？
1、很重要的一点，，要先在delphi中引入Excel：
“Project”——“Import Tpye Library”,在弹出的对话框中点击“Add”。找到你安装Excel的盘，，默认的安装路径：“C:\Program Files\Microsoft Office\OFFICE11”.安装的版本如果不同的话“OFFICE11”文件名会不一样。然后你可以找到“XL5CHS32.OLB”和“XL5EN32.OLB”文件。这两个文件你可以任选一个。XL5CHS32.OLB是中文版Excel，XL5EN32.OLB是英文版的Excel。选中后回到了Import Tpye Library对话框，在此对话框中选择“create unit”.这个新创建的单元会放在你当前文件存放的同一个目录下。记住不能删。

Answer 3

SaveAs就是“另存为”的动作。

执行完SaveAs后，当前文件就变成了“另存为”的文件（原始文件当然还在），这时不用再保存，直接关闭即可。（如果保存，就是再次保存为CSV文件，而CSV文件能包含宏代码，所以有警告，但不是不能保存）。
其余的问题看不懂……追问

保存之后原来的宏文件就不可用了。。下面图片就是保存之后的再打开宏文件的错误信息

追答

那么解决办法就是
先用 ActiveSheet.SaveAs "c:\aaaaa.csv", xlCSV 保存为CSV文件
然后再加一句：ActiveSheet.SaveAs "c:\原文件名.xls", xlWorkbookNormal
将文件保存为原来的XLS文件即可

追问

麻烦了，有别的办法吗 ？貌似不行，，执行到 ActiveSheet.SaveAs "c:\原文件名.xls", xlWorkbookNormal 会报错 类似上面没定义的错误

追答

不可能啊，我实际测试过，正常运行的：

Sub abc()
ThisWorkbook.SaveAs "abc.csv", xlCSV
ThisWorkbook.SaveAs "abc.xls", xlWorkbookNormal
End Sub

请确认是否正确输入了代码

本回答被提问者采纳

Answer 4

ActiveWorkbook.ActiveSheet.[A1:C3].Value = ThisWorkbook.ActiveSheet.[A1:C3].Value
Sub qq()
f = Dir("d:\*.csv")
Do While f <> ""
Workbooks.Open ("d:\" & f)
k = k + 1
ActiveWorkbook.ActiveSheet.[A1:C3].Value = ThisWorkbook.ActiveSheet.[A1:C3].Value
' Workbooks("aw.xlsm").Activate
' Range("a1:c3").Copy Workbooks(f).Sheet(1).Range("a1")
f = Dir
Loop
End Sub
如果用工作表序号，应该是 Sheets(1) ，而不是 Sheet(1)

Answer 5

不能保存，你又说不出提示什么错误，没办法。

阴影是什么样的？截图看看？或者把表发我邮箱。

保存可以用下面代码

Application.DisplayAlerts = False
ActiveSheet.SaveAs "c:\aaaaa", xlCSV
Application.DisplayAlerts = True
QQ邮箱 [email protected]