Home |
Search |
Today's Posts |
#1
|
|||
|
|||
GetSaveAsFilename not working in Excel 2003
I am having trouble with a macro that worked in Excel 2000 but will not work
in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#3
|
|||
|
|||
This is the complete code. My problem isn't with the SaveAs, it is with the
Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#4
|
|||
|
|||
I will open a VPC with 2003 to test
-- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... This is the complete code. My problem isn't with the SaveAs, it is with the Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#5
|
|||
|
|||
First test is OK in 2003
Can you explain this line Worksheets("sheet1").SaveAs filename:=answer What do you want to do ? -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... I will open a VPC with 2003 to test -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... This is the complete code. My problem isn't with the SaveAs, it is with the Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#6
|
|||
|
|||
Since it worked for you, I have to assume that the problem is with our
company's installation of Excel 2003. I wasn't even getting to "Worksheets("sheet1").SaveAs filename:=answer". By the way, to answer your question, I was trying to save the sheet with the given name as a text file (tab delimited). "Ron de Bruin" wrote: First test is OK in 2003 Can you explain this line Worksheets("sheet1").SaveAs filename:=answer What do you want to do ? -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... I will open a VPC with 2003 to test -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... This is the complete code. My problem isn't with the SaveAs, it is with the Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#7
|
|||
|
|||
By the way, to answer your question, I was trying to save the sheet with the
given name as a text file (tab delimited). Use my first example then that copy the sheet into a new workbook and save it -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... Since it worked for you, I have to assume that the problem is with our company's installation of Excel 2003. I wasn't even getting to "Worksheets("sheet1").SaveAs filename:=answer". By the way, to answer your question, I was trying to save the sheet with the given name as a text file (tab delimited). "Ron de Bruin" wrote: First test is OK in 2003 Can you explain this line Worksheets("sheet1").SaveAs filename:=answer What do you want to do ? -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... I will open a VPC with 2003 to test -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... This is the complete code. My problem isn't with the SaveAs, it is with the Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#8
|
|||
|
|||
Thanks for your help, Ron.
"Ron de Bruin" wrote: By the way, to answer your question, I was trying to save the sheet with the given name as a text file (tab delimited). Use my first example then that copy the sheet into a new workbook and save it -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... Since it worked for you, I have to assume that the problem is with our company's installation of Excel 2003. I wasn't even getting to "Worksheets("sheet1").SaveAs filename:=answer". By the way, to answer your question, I was trying to save the sheet with the given name as a text file (tab delimited). "Ron de Bruin" wrote: First test is OK in 2003 Can you explain this line Worksheets("sheet1").SaveAs filename:=answer What do you want to do ? -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... I will open a VPC with 2003 to test -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... This is the complete code. My problem isn't with the SaveAs, it is with the Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
#9
|
|||
|
|||
Change
ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText to wb.SaveAs Filename:=answer, FileFormat:=xlText -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... Thanks for your help, Ron. "Ron de Bruin" wrote: By the way, to answer your question, I was trying to save the sheet with the given name as a text file (tab delimited). Use my first example then that copy the sheet into a new workbook and save it -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... Since it worked for you, I have to assume that the problem is with our company's installation of Excel 2003. I wasn't even getting to "Worksheets("sheet1").SaveAs filename:=answer". By the way, to answer your question, I was trying to save the sheet with the given name as a text file (tab delimited). "Ron de Bruin" wrote: First test is OK in 2003 Can you explain this line Worksheets("sheet1").SaveAs filename:=answer What do you want to do ? -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... I will open a VPC with 2003 to test -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" wrote in message ... This is the complete code. My problem isn't with the SaveAs, it is with the Application.GetSaveAsFilename function. "Ron de Bruin" wrote: Hi Is the complete code ? Do you want to save the sheet as a txt file ? Try this Sub test() Dim wb As Workbook Do answer = Application.GetSaveAsFilename(InitialFileName:="In itFile", _ FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").Copy Set wb = ActiveWorkbook ActiveWorkbook.SaveAs Filename:=answer, FileFormat:=xlText wb.Close False End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Mayur Patel" <Mayur wrote in message ... I am having trouble with a macro that worked in Excel 2000 but will not work in Excel 2003. In 2000, this macro saves just the data portion but in 2003 it loops endlessly. I also have trouble with a few more macros. Is there a place where I can go to find variances between Excel 2000 VBA and 2003? Do answer = Application.GetSaveAsFilename(InitialFilename:="In itFile", FileFilter:="Text Files (*.txt), *.txt", Title:="SAP Upload File Name") Loop Until answer < False Worksheets("sheet1").SaveAs filename:=answer |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
External Links on open and Excel 2003 | Excel Discussion (Misc queries) | |||
"Group" function very slow with Excel 2003 :( ... While very quick with Excel2000 :O) | Excel Discussion (Misc queries) | |||
Help in Excel 2003 | Excel Discussion (Misc queries) | |||
Excel Range Value issue (Excel 97 Vs Excel 2003) | Excel Discussion (Misc queries) | |||
sharing/using/saving Excel 2002 files in Excel 2003 | Excel Discussion (Misc queries) |