批量转换csv文件到xlsx

批量转换csv文件到xlsx批量转换csv文件到xlsx 批量转换csv到xlsx 1、配置VBA运行环境、、、 2、代码 //此代码将同一目录下所有csv文件转换为xlsx文件。 Sub 按钮1_Click() Application.ScreenUpdating = False pth = ThisWorkbook.Path & "\" flnm = Dir(pth & "*.csv") Do While Len(flnm) > 0 With Workbooks.Open(pth & flnm, Rea...

批量转换csv文件到xlsx 批量转换csv到xlsx 1、配置VBA运行环境、、、 2、代码 //此代码将同一目录下所有csv文件转换为xlsx文件。 Sub 按钮1_Click() Application.ScreenUpdating = False pth = ThisWorkbook.Path & "\" flnm = Dir(pth & "*.csv") Do While Len(flnm) > 0 With Workbooks.Open(pth & flnm, ReadOnly:=True) .SaveAs Replace(flnm, ".csv", ".xlsx"), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal) .Close End With flnm = Dir Loop End Sub 3、批处理重命名 Ren 3mx-0.8G.csv 3m-0.8G-水平.csv Ren 3mx-0.9G.csv 3m-0.9G-水平.csv Ren 3mx-1.0G.csv 3m-1.0G-水平.csv Ren 3mx-1.1G.csv 3m-1.1G-水平.csv Ren 3mx-1.2G.csv 3m-1.2G-水平.csv Ren 3mx-1.3G.csv 3m-1.3G-水平.csv Ren 3mx-1.4G.csv 3m-1.4G-水平.csv Ren 3my-0.8G.csv 3m-0.8G-垂直.csv Ren 3my-0.9G.csv 3m-0.9G-垂直.csv Ren 3my-1.0G.csv 3m-1.0G-垂直.csv Ren 3my-1.1G.csv 3m-1.1G-垂直.csv Ren 3my-1.2G.csv 3m-1.2G-垂直.csv Ren 3my-1.3G.csv 3m-1.3G-垂直.csv -1.4G.csv 3m-1.4G-垂直.csv Ren 3my 4、包含页面处理代码 //此代码将同一目录下所有csv文件转换为xlsx文件, 并且排版添加图表，使用时和temple.xlsx配合，temple.xlsx需要打开。 Sub 按钮1_Click() Application.ScreenUpdating = False pth = ThisWorkbook.Path & "\" flnm = Dir(pth & "*.csv") Do While Len(flnm) > 0 With Workbooks.Open(pth & flnm, ReadOnly:=False) ActiveCell.Select ActiveCell.FormulaR1C1 = "" Windows("temple.xlsx").Activate Range("A1:A101").Select Selection.Copy Windows(flnm).Activate Range("A1:A101").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=-9 Windows("temple.xlsx").Activate Range("A1:P1").Select Application.CutCopyMode = False Selection.Copy Windows(flnm).Activate Range("A1:P1").Select ActiveSheet.Paste ActiveCell.Rows("1:1").EntireRow.RowHeight = 27.6 ActiveCell.Range("A1:P101").Select Application.CutCopyMode = False Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With ActiveSheet.Shapes.AddChart.Select flnm1 = Replace(flnm, ".csv", "") ActiveChart.SetSourceData Source:=Range("A1:P101") ActiveChart.ChartType = xlSurface Windows("temple.xlsx").Activate Range("R1").Select Selection.Copy Windows(flnm).Activate Range("A1").Select ActiveSheet.Paste .SaveAs Replace(flnm, ".csv", ".xlsx"), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal) .Close End With flnm = Dir Loop End Sub

                    本文档为【批量转换csv文件到xlsx】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

批量转换csv文件到xlsx

你可能还喜欢