Question

我有大约40本工作簿，包含1000多列和近100万条记录。

不幸的是，大部分数据都是以文本格式导入的，我试图将特定列转换为数字格式。

除了使用粘贴特殊＆gt;手动编辑每个文件之外乘法技术，有没有办法宏，这将迭代特定文件夹中的所有excel文件？

Answer 1

您知道要更改的列和数字。您可以录制它的宏并将其插入到这个基本的DIR（）技术中：

Option Explicit

Sub LoopThroughFolder()
Dim fPATH As String, fNAME As String
Dim wb As Workbook

fPATH = "C:\Path\To\My\Files\"      'remember the final \
fNAME = Dir(fPATH & "*.xl*")        'get first filename from fPATH
Application.ScreenUpdating = False  'speed up execution

    Do While Len(fNAME) > 0
        Set wb = Workbooks.Open(fPATH & fNAME)

        'your code here to format that activesheet

        wb.Close True       'save and close the edited file

        fNAME = Dir         'get the next filename
    Loop

Application.ScreenUpdating = True
End Sub

Answer 2

Option Compare Database
Public Function format(filepath, sheetname, sheetpath)


Set xls = CreateObject("EXCEL.APPLICATION")
xls.screenupdating = False
xls.displayalerts = False
xls.Visible = True
xls.workbooks.Open filepath
Set xlsdd = xls.ActiveWorkbook

'deleting headers

xls.Range("1:1").Select
xls.Selection.Delete Shift:=xlUp

'adding one column

xls.Columns("A:A").Select
xls.Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'adding 5 rows
 'ActiveWorkbook.Sheets("sheet1").Select
xls.Rows("1:5").Insert Shift:=xlDown

 ' fetching rows from access and putting them into excel
'  strsql = "select top 5 " & sheetname & ".* into top5_records from " & sheetname
'  DoCmd.RunSQL strsql
'  outputFileName = "C:\Users\hp\Desktop\top5_records.xls"
'  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "top5_records",   outputFileName, True

'then open that excel and copy the rows

Set xls2 = CreateObject("EXCEL.APPLICATION")
xls2.screenupdating = False
xls2.displayalerts = False
xls2.Visible = True
xls2.workbooks.Open sheetpath
Set xlsdd2 = xls2.ActiveWorkbook
xls2.Rows("1:5").Select
xls2.Selection.Copy
xls.Cells(1, 1).Select
xls.activesheet.Paste



 'making first 6th row to be bold

xls.Rows("6:6").Select
With xls.Selection.Font
.Bold = True 
 .Name = "Arial"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
End With

'autofit the data

xls.Sheets(sheetname).Cells.Columns.autofit
xls.CutCopyMode = False

'making both the excel objects to be free

With xlsdd
.Save
.Close
End With
xls.Visible = False

Set xlsdd = Nothing
Set xls = Nothing

With xlsdd2
.Save
.Close
End With
xls2.Visible = False

Set xlsdd2 = Nothing
Set xls2 = Nothing

End Function

Excel：如何将文本转换为多个工作簿的数字格式

2 个答案: