어떻게 xls를 대량으로 xlsx로 변환합니까
1552 단어 VBA
1. [파일]을 클릭하고 [다른 이름으로 저장]을 선택하여 바탕 화면에 저장
2.'저장 유형'을 클릭하고'Excel 97-2003 워크북'을 선택한 다음'저장 유형'을 클릭
그런데 나는 100개의 파일을 가지고 있는데 대량으로 조작할 수 있습니까?
답: 그럼요. VBA 코드만 사용하면 위의 조작에 따라 자동으로 100번 실행할 수 있어요. 대량으로 주문해 드릴게요.xls가.xlsx.
구체적인 조작은 아래 동도를 보십시오
VBA 코드는 다음과 같습니다(복제할 수 있음).
'*********** ,
Dim iFile(1 To 100000) As String
Dim count As Integer
Sub xls2xlsx()
iPath = ThisWorkbook.Path
On Error Resume Next
count = 0
zdir iPath
For i = 1 To count
If iFile(i) Like "*.xls" And iFile(i) <> ThisWorkbook.FullName Then
MyFile = iFile(i)
FilePath = Replace(MyFile, ".xls", ".xlsx")
If Dir(FilePath, 16) = Empty Then
Set WBookOther = Workbooks.Open(MyFile)
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
WBookOther.Close SaveChanges:=False ' close
Application.ScreenUpdating = True
End If
End If
Next
End Sub
Sub zdir(p) '
Set fs = CreateObject("scripting.filesystemobject")
For Each f In fs.GetFolder(p).Files
If f <> ThisWorkbook.FullName Then count = count + 1: iFile(count) = f
Next
For Each m In fs.GetFolder(p).SubFolders
zdir m
Next
End Sub이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel VBA에서 SIR 모델을 구현합니다.신형 코로나 바이러스(COVID-19)의 환자수 추이를 나타내는 수리 모델 「SIR 모델」을 자주(잘) 보게 되었습니다. SIR 모델에서는 감염되지 않은 사람을 S(susceptible), 감염자를 I(infecti...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
