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

急!!!!怎么样用VBA将EXCEL信息出力到一个CSV文件中啊??~

把你的指定单元格的内容 放到一个新的Sheet中 并把这个Sheet设置为当前活动的Sheet
然后使用下面的代码

Sub SaveAsCSV()
ActiveSheet.SaveAs "c:\aaaaa.csv", xlCSV
End Sub

比如你原来有3个Sheet 那你可以再创建一个新的Sheet 然后通过VBA把这个Sheet切换到当前活动的状态 然后把原来的某个Sheet中的你想要的那一行内容 复制到新的这个Sheet中 然后用上面的命令 保存掉
然后再把这个新添加的Sheet删除掉
在把焦点切换回原来你停留的Sheet 就可以了 天衣无缝.

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)


网页
问问
科学
知识
更多

搜索
关于用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

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”.这个新创建的单元会放在你当前文件存放的同一个目录下。记住不能删。

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

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

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)

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

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

保存可以用下面代码

    Application.DisplayAlerts = False
    ActiveSheet.SaveAs "c:\aaaaa", xlCSV
    Application.DisplayAlerts = True
QQ邮箱 987122817@qq.com

---

镇远县15386868588： 将excel中数据保存至另一个excel中用vba - ？
侯疯特美： 将excel中数据保存至另一个excel中用vba,可以这样: 1、插入一个ActiveX控件中的按钮,双击添加如下代码: Private Sub CommandButton1_Click() ThisWorkbook.SaveAs Filename:=＂C:\Users\Administrator\Desktop\Book1.xlsx＂ End Sub ...

镇远县15386868588： 在excel里利用vba怎么对指定单元格,或区域单元格保护 - ？
侯疯特美： 1、打开EXCEL2003,输入并编辑好相关的数据,如下图,录入九年级学生相关的成绩,并设置好字体大小和行列的宽高等.2、编辑相关的统计公式,如在原始数据最后一列增加总分列,并在K4单元格输入:=SUM(D4:J4),然后往下拖拉填充...

镇远县15386868588： 请问如何用VBA实现将EXCEL中的一个工作表保存在指定文件夹内? - ？
侯疯特美： ThisWorkbook.Path 改成你需要的路径就可以了,比如改成 “C:＂,就在C盘根目录下

镇远县15386868588： 如何用vba编程对word和excel进行文件保护? - ？
侯疯特美： 保护工作簿(Protect方法) Sub ProtectWorkbook() MsgBox ＂保护工作簿结构,密码为123＂ ActiveWorkbook.Protect Password:=＂123＂, Structure:=True MsgBox ＂保护工作簿窗口,密码为123＂ ActiveWorkbook.Protect Password:=＂123＂...

镇远县15386868588： 在VBA中怎么把一个excel工作表或工作傅保存到其它表中? - ？
侯疯特美： 我的思路是:利用VBA文件操作打开Excel文件,然后读取你文件模板中特定位置的数据,保存到当前表中,然后可以当前表一行存储一个Excel文件.比如:源表中A1、B2、B5、C3是数据内容.可以依此保存到当前文件中的A1~D1.然后A2~...

镇远县15386868588： 怎么用vba抓取excel表格中的数据 - ？
侯疯特美： 你的问题太大了,因为VBA在excel就是抓数据、计算数据的,要看你具体怎么抓.比如抓取特定字段数据,应该用到三个字符串函数:LEFT、RIGHT、MID 1、LEFT函数: 用法:LEFT(要提取字符所在单元格,从左侧开始提取的个数) 例如...

镇远县15386868588： 怎么用VBA将excel里的数据提取到新的默认命名的表格内并保存到指定目录下 - ？
侯疯特美： 数据不多,用 for next 循环 否则用vba数组方式

镇远县15386868588： 关于用vba把excel中的数据保存到一个csv文件中. - ？
侯疯特美： 不能保存,你又说不出提示什么错误,没办法.阴影是什么样的?截图看看?或者把表发我邮箱.保存可以用下面代码1234 Application.DisplayAlerts = False ActiveSheet.SaveAs ＂c:\aaaaa＂, xlCSV Application.DisplayAlerts = True QQ邮箱 987122817@qq.com

镇远县15386868588： 请问在excel中如何利用vba将部分字段数据保存到SQL里? - ？
侯疯特美： 你在EXCEL中增加一个列名为ID,后在VBA中写以下代码,并引用Microsoft ActiveX Data Objects 2.8后执行

镇远县15386868588： 请用vba打开记事本后,怎样通过vba把excel中数据copy到记事本中,并保存.关闭记事本.谢谢？
侯疯特美： 不用先打开记事本 再copy数据进去.那样比较麻烦,给你个写转文本文件的例子 下面的代码 把当前激活工作表的所有内容以行为单位写入一个文本文件,并把这个文件保存在这个excel工作薄的同目录下.文本文件的名字是工作簿名+工作表名.txt ...