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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 03:53 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com