如何将Excel2003转换成Excel2010
发布网友
发布时间：2022-04-21 13:52
我来回答
共2个回答
热心网友
时间：2023-07-15 05:32
把excel2003的文件在2010中打开，“另存为……”时格式选“excel”而不是“excel1997-2003”即可。
热心网友
时间：2023-07-15 05:32
vba文件移动工具2003版，无法使用，请大神帮忙确认，提出修改意见，谢谢你！
Global a As String, count2 As Integer
Sub NewMoveExcelfile()
Dim fso As Object, f1, f, fc, Space As Integer, firstname As String, count1 As Integer, count As Integer, Find As String, NewString As String, Destination As String
Application.ScreenUpdating = False
On Error GoTo very
a = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(a)
Set fc = f.Files
With Application.FileSearch
.LookIn = a
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.NewSearch
If .Execute() > 0 Then
count1 = .FoundFiles.count
For Each f1 In fc
Find = "TFC Data "
NewString = Replace(f1.Name, Find, "")
Space = InStr(NewString, " ")
firstname = Left(NewString, Space - 1)
Destination = "" & a & "\" & firstname & "\"
If fso.FolderExists("" & a & "\" & firstname & "") = True Then
On Error Resume Next
fso.MoveFile f1, Destination
Else
End If
Next
Call Newtest
count = count1 - count2
MsgBox "你好!在当前的文件夹路径中,共发现 " & count1 & " 个Excel文件。" & Chr(10) & Chr(10) _
& "已经移动 " & count & " 个Excel文件。" & Chr(10) & Chr(10) _
& "还有 " & count2 & " 个Excel文件未能移动,需要手动移动！", vbOKOnly + vbInformation, "XIAO ZHONG 说："
Else
MsgBox "你好!在当前的文件夹路径中,未发现可移动Excel文件。" & Chr(10) & Chr(10) _
, vbOKOnly + vbInformation, "XIAO ZHONG 说："
End If
End With
very:
Application.ScreenUpdating = True
End Sub
Sub Newtest()
With Application.FileSearch
.LookIn = a
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.NewSearch
.Execute
count2 = .FoundFiles.count
End With
End Sub
