Benötigen Sie Hilfe mit VBA

Question

Ich habe einen Importcode, der perfekt auf meinem 2013 64bit Excel funktioniert; Ich habe jedoch Benutzer, die 2010 Excel mit 32bit verwenden und der Code funktioniert nicht. Ich wäre sehr dankbar, wenn jemand an dem unten Code aussehen würde und sagen Sie mir, was ich damit meine 2010 32-Bit-Benutzer ändern muß in der Lage sein, es zu benutzen:

Sub TransferData() 
''<<<<unprotect code 
Dim i As Integer 
For i = 1 To Sheets.Count 
Sheets(i).Unprotect password:="ADMIN" 
Next i 
' 
''<<<<<main code 
' 
Application.ScreenUpdating = False 
Sheets("Dashboard").Activate 
Sheets("DASF Data").Range("DASF_Range").ClearContents 
' 
Dim wb1 As Workbook 
Dim wb2 As Workbook 

Set wb1 = ActiveWorkbook 

FileToOpen = Application.GetOpenFilename _ 
(Title:="Please choose a Report to Parse", _ 
FileFilter:="Report Files *.xls (*.xls),") 

If FileToOpen = False Then 
MsgBox "No File Specified.", vbExclamation, "ERROR" 
Exit Sub 
Else 
Set wb2 = Workbooks.Open(Filename:=FileToOpen) 

For Each Sheet In wb2.Sheets 
    If Sheet.Visible = True Then 
     Range("A2:Y10000").Select 
Selection.Copy 
Windows("DASF MANAGEMENT TOOL (CONUS Ver 1.0).XLSB").Activate 
Sheets("DASF Data").Select 
Range("A2").Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 

Sheets("Dashboard").Activate 

End If 
Next Sheet 
End If 
Workbooks("DASF.XLS").Close SaveChanges:=False 

End Sub 

Answer 1

Diese Fehlernummer muss nicht unbedingt etwas hat speziell mit Ihrem gelisteten Code zu tun. Es könnte irgendwo in Ihren Modulen ein Fehler auftreten. Oder es könnte in der kompilierten Version eines Ihrer Module ein fehlerhafter Code sein. Es könnte sogar ein gebrochener Bibliotheksbezug sein.

die erste Möglichkeit auszuschließen, ein Handbuch tun „all‘ Ihren Code kompilieren.

die zweite Möglichkeit zu beheben, eine neue Tabelle erstellen und den Text von Ihrer alten Tabelle in neue Module in Ihrem neuen kopieren Tabelle herunterladen oder verwenden Sie einen Excel 'Decompiler'.