VBAの援助が必要

Question

私は2013年の64ビット版で完璧に動作するインポートコードを持っています。しかし、私は32ビットの2010 Excelを使用しているユーザーがあり、コードが動作しません。誰かが以下のコードを見て、私は私の2010 32ビット、ユーザーがそれを使用することができるようにするために変更する必要があるものを私に言うだろう場合、私は非常に感謝される：エラー番号は、必ずしも何も持っていません

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

こと具体的にはあなたのリストされたコードと関係があります。あなたのモジュールのどこかでエラーになる可能性があります。あるいは、あなたのモジュールのコンパイル済みバージョンで破損したコードかもしれません。ライブラリリファレンスが壊れている可能性もあります。

マニュアル「は、コードのすべて」をコンパイルしない、最初の可能性を排除するために。

、第二の可能性を修正する新しいスプレッドシートを作成し、あなたの新しいの新しいモジュールに古いスプレッドシートからテキストをコピーするにはスプレッドシートまたはExcelのデコンパイラをダウンロードして使用する