1
如何删除参考并在每台机器上使用vba代码？
正如您所建议的那样，我已经进行了更改，但仍然无法使其变得用户友好，或者您可以说每次必须使用此代码时，都必须在不同计算机上打开脚本运行时。 请提出建议并尽快更正我的代码 Sub GetFileNamesandPageCount() Option Explicit Public fs As Object Dim diaFolder As FileDialog Set fs = CreateObject("Scripting.FileSystemObject") Dim i As Integer Dim fld As Object Dim T_Str As String Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker) diaFolder.AllowMultiSelect = False diaFolder.Show If diaFolder.Show = -1 Then T_Str = diaFolder.SelectedItems(1) Else Set diaFolder = …