| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
My small code make excel crash
Hi,
The code under make excel crash. I have found out that the last line "ActiveWorkbook.Close" is the reason, but i dont understand why. And i like to solve it aswell... How can i close the workbook without crashing excel.....??? :-) Sub FlyttetilHLT() Dim adr Dim fadr Dim klient klient = Range("c4").Value adr = ActiveWorkbook.Path Worksheets(2).Activate fadr = adr & "\" & "IT" & klient & "TRS.HLT" ActiveWorkbook.SaveAs Filename:=fadr, _ FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
My small code make excel crash
Hi Petter,
I think you need slashes before and after klient. fadr = adr & "\" & "IT" & klient & "TRS.HLT" Should be... fadr = adr & "\" & "IT" & "\" & klient & "\" & "TRS.HLT" "Petter" wrote in message ... Hi, The code under make excel crash. I have found out that the last line "ActiveWorkbook.Close" is the reason, but i dont understand why. And i like to solve it aswell... How can i close the workbook without crashing excel.....??? :-) Sub FlyttetilHLT() Dim adr Dim fadr Dim klient klient = Range("c4").Value adr = ActiveWorkbook.Path Worksheets(2).Activate fadr = adr & "\" & "IT" & klient & "TRS.HLT" ActiveWorkbook.SaveAs Filename:=fadr, _ FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
My small code make excel crash
Hi Jaf,
That is not the problem... The file name would be somthing like IT006TRS.HLT and that is correct. That bit work like a charm.... It has something with that i trying to close the workbook that i have saved..could it be something with that is not longer a workbook??..since i saved it as a .txt file??? "jaf" wrote: Hi Petter, I think you need slashes before and after klient. fadr = adr & "\" & "IT" & klient & "TRS.HLT" Should be... fadr = adr & "\" & "IT" & "\" & klient & "\" & "TRS.HLT" "Petter" wrote in message ... Hi, The code under make excel crash. I have found out that the last line "ActiveWorkbook.Close" is the reason, but i dont understand why. And i like to solve it aswell... How can i close the workbook without crashing excel.....??? :-) Sub FlyttetilHLT() Dim adr Dim fadr Dim klient klient = Range("c4").Value adr = ActiveWorkbook.Path Worksheets(2).Activate fadr = adr & "\" & "IT" & klient & "TRS.HLT" ActiveWorkbook.SaveAs Filename:=fadr, _ FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close End Sub |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
My small code make excel crash
By using the line Debug.print fadr and viewing the result in the Immediate window or MsgBox fadr you can check the result of your code before trying to save the file. -- mdmackillop ------------------------------------------------------------------------ mdmackillop's Profile: http://www.thecodecage.com/forumz/member.php?userid=113 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=68050 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
My small code make excel crash
Hi Petter,
If you are running code, you have to have at least one workbook open. Are you closing the workbook that contains the code? Application.quit will close Excel completely without an error. John "Petter" wrote in message ... Hi Jaf, That is not the problem... The file name would be somthing like IT006TRS.HLT and that is correct. That bit work like a charm.... It has something with that i trying to close the workbook that i have saved..could it be something with that is not longer a workbook??..since i saved it as a .txt file??? "jaf" wrote: Hi Petter, I think you need slashes before and after klient. fadr = adr & "\" & "IT" & klient & "TRS.HLT" Should be... fadr = adr & "\" & "IT" & "\" & klient & "\" & "TRS.HLT" "Petter" wrote in message ... Hi, The code under make excel crash. I have found out that the last line "ActiveWorkbook.Close" is the reason, but i dont understand why. And i like to solve it aswell... How can i close the workbook without crashing excel.....??? :-) Sub FlyttetilHLT() Dim adr Dim fadr Dim klient klient = Range("c4").Value adr = ActiveWorkbook.Path Worksheets(2).Activate fadr = adr & "\" & "IT" & klient & "TRS.HLT" ActiveWorkbook.SaveAs Filename:=fadr, _ FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close End Sub |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
My small code make excel crash
hi Petter
Excel version ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Petter" wrote in message ... Hi, The code under make excel crash. I have found out that the last line "ActiveWorkbook.Close" is the reason, but i dont understand why. And i like to solve it aswell... How can i close the workbook without crashing excel.....??? :-) Sub FlyttetilHLT() Dim adr Dim fadr Dim klient klient = Range("c4").Value adr = ActiveWorkbook.Path Worksheets(2).Activate fadr = adr & "\" & "IT" & klient & "TRS.HLT" ActiveWorkbook.SaveAs Filename:=fadr, _ FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Why this code crash Excel? | Excel Programming | |||
| this code makes excel crash | Excel Programming | |||
| How can I make program of accounting in excel for small business | Excel Programming | |||
| stubborn Excel crash when editing code with code, one solution | Excel Programming | |||
| Excel crash error code | Excel Programming | |||
Linear Mode
