时间戳

首页 > 解决方案 > 将 csv 文件转换为 xlsx

excel - 将 csv 文件转换为 xlsx

问题描述

我需要将 csv 文件转换为 xlsx，以便我的宏可以正确读取值，但我不知道该怎么做，你能帮帮我吗？

Dim ExApp As Excel.Application
Set ExApp = New Excel.Application 
ExApp.Visible = False
Dim MyWb As Workbook
Set MyWb = ExApp.Workbooks.Open(Filename:="U:\a.csv", ReadOnly:=True

MyWb.Close SaveChanges:=False
ExApp.Quit

在这里我打开我的文件 a.csv 但我想在 xlsx 中打开它而不做任何事情，或者可能在打开后转换它我不知道。

标签： excelvba

解决方案

您只需像黑魔法一样更改文件的类型:(

为您提供两种解决方案：

  1. 让你的宏可以直接读取csv，很容易读取一个文件的csv。（推荐）

  2. 制作一个宏来打开 CSV 文件并将其保存为 xlsx 文件，然后您可以使用宏来读取此 xlsx 文件。

一些代码可以帮助你

    Dim WB As Workbook

    Set WB = Workbooks.Open("\\users\path\Desktop\test.csv")

    WB.SaveAs fileName:="\\users\path\Desktop\test.xlsx", _
            FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False

推荐阅读