У меня около 40 книг с более чем 1000 столбцов и около 1 миллиона записей.
К сожалению, большая часть данных была импортирована в текстовом формате, и я пытаюсь преобразовать определенные столбцы в числовой формат.
Помимо ручного редактирования каждого файла с использованием специальной техники вставки> умножения, есть ли способ сделать это макросом, чтобы он перебирал все файлы excel в определенной папке?
Вы знаете столбцы и числа, которые нужно изменить. Вы можете записать макрос этого и вставить его в эту базовую технику 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
