Code Crashes on WinXP

Anne Troy

New member
Joined
Mar 25, 2011
Messages
23
Reaction score
0
Points
0
And I can't figure out why!! I did ask this on MrExcel with no real response.

Code:
Sub SaveForImporting()
ThisWorkbook.SaveAs "C:\MImport" & ".xls", FileFormat:=56
ActiveWorkbook.Close False
End Sub

Help!! Thanks and Hi, Ken!

Yes, I have rights to root.
The file format is xlsm before saving. I don't *need* a macro-free workbook, I just need xls so the SQL that's going to use the data works right.
 
Last edited:

eferrero

New member
Joined
Mar 22, 2011
Messages
17
Reaction score
0
Points
0
Location
Brisbane
Website
www.edferrero.com
Code:
Sub SaveForImporting()
Dim strFileName As String
strFileName = "MyBook"
ThisWorkbook.SaveAs "C:\MImport\" & strFileName & ".xls", FileFormat:=56
ActiveWorkbook.Close False
End Sub

Oops, just realised that you want to save to C:\ and file name is MImport.xls. I don't know why you can't do it. It works for me :(
 
Last edited:

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,522
Reaction score
6
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Anne, I'm just booting up a VM running Windows XP. What version of Office are you running? 2007 or 2010? The code is called from an xlsm file, but trying to save in an xls format, is that right?
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,522
Reaction score
6
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Hmmm... have to ask... are you SURE you have rights to create files in the root of C:\ on your system? Like Ed, it's working fine for me as you posted.

Maybe there is something else in the code that is causing a conflict, or the file is corrupt?
 

Anne Troy

New member
Joined
Mar 25, 2011
Messages
23
Reaction score
0
Points
0
Hi, Ken! Thanks and sorry for the delay. Yes. We have rights to C. Everything works perfectly. Except the error AFTER it saves the file. I'm saving as XLS extension. Don't care whether there's code in the file or not or what the *actual* file type is.

Very weird.

Code:
Sub SaveToC()
Application.DisplayAlerts = False
If Len(Dir("C:\Users\", vbDirectory)) = 0 Then
ThisWorkbook.SaveAs "C:\FLImport" & ".xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
ActiveWorkbook.Close False
Else: MsgBox ("No Way!" & Chr(13) & "You are not on a virtual machine." & Chr(13) & Chr(13) & "Para nada!" & Chr(13) & "Tu no estas en una maquina virtual."), vbOKOnly
End If

Application.DisplayAlerts = False

End Sub

Hoping this forum takes code tags.
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,522
Reaction score
6
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Okay, so what is the error exactly? What line is highlighted?

This code is now checking to make sure that the C:\Users folder doesn't exist, and tries to save the file as an xls if true. That's correct?
 

Anne Troy

New member
Joined
Mar 25, 2011
Messages
23
Reaction score
0
Points
0
Yes, but that doesn't matter. It crashed before that was there. We perform programming of a sort on virtual machines. The workbook is usually worked on the regular machine, saved to a network drive, opened on the virtual, saved to C. No matter how little or how much code is there, it crashes. So, it's not the code. It's gotta be something else. It's the usual "Microsoft Office Excel has encountered a problem and needs to close" and closes with the Send report button.
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,522
Reaction score
6
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Ohhh.... THAT error. Application Crash. I thought you meant just a Debug type.

Hmmm... what kind of virtual machine? Hyper-V, VMWare, VirtualBox?
 
Top