当前位置：网站首页 > IT知识 > 正文

使用vba将Excel 文件转成 CSV 文件

liuian 2025-06-13 14:49 37 浏览

使用vba将Excel中的内容写入文本文件，保存为txt或csv格式。

方法一：

Sub toCSV()

    Dim sht As Worksheet
    Dim i As Integer, j As Integer
    Dim arr()
    Dim line As String
    
    For Each sht In Sheets
        If Int(sht.Name) Mod 2 = 1 Then
            arr = sht.Range("a1").CurrentRegion
            Open "C:\Users\heju\Desktop\csv & xlsx\" & sht.Name & ".csv" For Output As #1
                For i = LBound(arr) To UBound(arr)
                    line = ""
                    For j = LBound(arr, 2) To UBound(arr, 2)
                        line = line & arr(i, j) & ","
                    Next
                    line = Left(line, Len(line) - 1)
                    Print #1, line
                Next
            Close
        End If
    Next
End Sub

方法二：

Sub shttobook()
    Dim sht As Worksheet, path As String
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    path = ThisWorkbook.path & "\csv & xlsx"
    For Each sht In Worksheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:=path & "\" & sht.Name & ".csv", FileFormat:=xlCSV
        ActiveWorkbook.Close
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

vba int

上一篇：用Excel编写俄罗斯方块（vb做俄罗斯方块）
下一篇：办公小技巧:定时提醒不慌张 Excel制作智能提醒器

相关推荐

手机天梯图2025最新版（手机天梯图cpu2020快科技）: 一般情况下而言，手机处理器的性能越强，功耗也就越高。有网友制作了一张手机处理器功耗排名图，高通骁龙888位8.34W，是榜单中功耗第二的处理器。而海思麒麟9000则位列第三，功耗为8.3W。一般情况下...

pe系统下载官网手机版（pe系统之家）: 打开手机应用商店，选择windowspe,下载安装PE系统是一种维护用的系统，本身是很简陋的，什么常用功能都没有，后经一些爱好都修改、完善，现在成为可当临时系统用的精简系统。但PE系统当前种类很多，...

云骑士装机大师怎么激活win7: 回答如下：要激活Windows7操作系统，您可以按照以下步骤进行操作：1.确保您的计算机已连接到互联网。2.打开“开始”菜单，点击“计算机”右键，选择“属性”。3.在系统属性窗口中，向下滚动到...

vmware workstation使用教程: VMwareWorkstation15是一款虚拟机软件，可以在主机上模拟多个虚拟计算机环境。以下是使用VMwareWorkstation15的基本步骤：1.下载和安装软件：从VMware官方...

windows7旗舰版64位多少钱（windows7旗舰版64位多少钱合适）: 这两个都是64位的，唯一区别是后者集成SP1。win7旗舰版64位玉米系统比较稳定，不但稳定，运行速度也很快！WIN764位系统需要的电脑配置。最低配置CPU：1GHz32位或2G...

电脑黑屏了怎么重装系统（电脑黑屏怎么重装系统win10）: 我觉着吧，题主的判断可能是不正确的黑屏开不了机指的是开机后显示屏无任何信号接入首先从电源出发，电源的cpu供电，主板供电，显卡供电，硬盘供电，每一项都要确保接触完整再到主板，主板上呢，cpu散热必须接...

三星官网正品查询（三星全新正品查询网站）: 三星服务中心地址：http://support-cn.samsung.com/support/ServiceLocations.asp国家工信部电信设备进网管理网站查询移动设备真伪方式：方法一：网站查...

显示windows许可证即将过期: 电脑提示Windows许可证即将到期，可以采取以下措施：检查许可证状态：首先需要确认许可证是否真的即将过期。可以在Windows设置中查看许可证状态，或者运行命令“slmgr/xpr”来检查许可证到...

u盘看不到第二个分区（u盘不显示第二个分区）: u盘分区后不显示出来原因一般为以下三种:第一种情况:对于windows系统是只能识别U盘分区的。第二种情况:关于U盘的diskgenius分区是只能看到一个分区的第三种情况:这个U盘分区已经被隐藏了,...

小马激活重启电脑开不了机（小马激活重启后蓝屏怎么办）: 1.无法激活2.小马激活工具可能无法激活的原因有很多，可能是因为软件本身存在bug或者与操作系统不兼容，也可能是因为网络连接问题或者输入的激活码有误。此外，小马激活工具可能需要特定的硬件或软件环境...

windows7 破解版（windows 7旗舰版破解密码）: 步骤/方法按Windows徽标键+R（运行窗口），打开cmd运行窗口。输入slmgr.vbs-xpr后回车。这时会弹出一个窗口显示Win7的激活状态。Windows7旗舰版属于微软公司开发的...

专业数据恢复（专业数据恢复需要什么设备）: 1、移动硬盘损坏以后，电脑无法识别到硬盘信息，那么整个硬盘数据将全部丢失。2、如果能够换一台电脑识别到，即使打不开，只要能够格式化，就有希望回复数据。可以尝试制作U盘系统盘的方法，打开u盘系统盘制作程...

声卡怎么连接手机唱歌: 1.首先是使用音频连接线把手机的耳机孔/数据口与声卡的【直播】插孔相连；同样使用音频线把手机与声卡的【伴奏】插孔相连；耳机连接在声卡的【耳麦】插孔；连接好后打开直播手机，进入直播软件，伴奏设备播放歌曲...

iphone官网下载（苹果官网下载ios）: PP助手、同步推等手机助手都可以下载已经下架的应用，这类助手有很多，一搜一大把，而且就我知道的PP助手还能选择下载历史版本，当然也有部分应用是没在商店上架的，他们是通过企业证书公布自己的应用，需要到官...

photoshop免费软件（免费ps软件推荐）: photoshop是adobe公司旗下的产品,正确来说,购买正版的时候代表购买了该软件的使用权,可以享有注册软件,升级软件等服务.下载试用版可在试用期内使用无需收费.官方试用版在30天内是免费的...

一周热门

最近发表

首页
收录
顶部