vb在同一文件夹下将excel文件转换为csv文件

1、在窗体上添加一个CommonDialog控件，一个命令按钮

2、编写打开代码

Public xap As Excel.Application

Public xbook1 As Excel.Workbook

Function shezhi()

Set xap = CreateObject("Excel.Application")

End Function

Private Sub dkdj_Click()

Dim i As Integer

Dim str As String

Call shezhi

CommonDialog1.Action = 1

Set xbook1 = xap.Workbooks.Open(CommonDialog1.FileName)

3、续写转换才csv文件代码

 Label1.Caption = CommonDialog1.FileName '取文件路径全名

    i = Len(CommonDialog1.FileName)        '计算取文件路径全名长度

    str = Left(CommonDialog1.FileName, i - 4) '取文件路径（不包含后缀）

    Label2.Caption = str & ".csv"            '转换为csv文件

        xbook1.SaveAs FileName:=Label2.Caption, FileFormat:=xlCSV, CreateBackup:=False

    xbook1.Close

End Sub