Open File location 1

[ameedoo3000]

Hi all
i want to copy my table.dbf to Excel file by code .but i want to open location to save the file . how that?
i was use "copy to c:\table_name.xls type xl5" . now i want to open the any location to save the file."by code".
Greetings
Ahmed

 

[newtofoxpro]

ExcelLocation="c:\windows"
RUN /N explorer &ExcelLocation

 

[Mike Lewis]

Do you mean that you want to actually open the Excel file within Excel?

If so, the best way is to use ShellExecute(). If you don't know how to do that, see:

http://www.ml-consult.co.uk/foxst-26.htm

If that's not what you mean, please clarify your question.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[GriffMG]

I think the OP wants his end user to be able to select the destination for the xls file.

	PRIVATE m.FILENAME
	m.FILENAME = GETFILE("XLS","File Name","Select")
	IF !EMPTY(m.FILENAME)
		COPY TO (m.FILENAME) type xl5
	ENDIF

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

I'm trying to cut down on the use of shrieks (exclamation marks), I'm told they are !good for you. ​

 

[Mike Lewis]

You might be right, Griff. It's such fun having to guess what this type of question means.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[GriffMG]

It certainly is Mike

B-)

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

I'm trying to cut down on the use of shrieks (exclamation marks), I'm told they are !good for you. ​

 

[ameedoo3000]

many thanks for all
i use this code
PRIVATE m.FILENAME
m.FILENAME = GETFILE("XLS","File Name","Save")
IF !EMPTY(m.FILENAME)
COPY TO (m.FILENAME) type xl5
ENDIF
and i have got my goal
thank you very much Griff and Mike.
greetings
Ahmed

 

[Olaf Doschke]

Guys, GETFILE is to pick a file, there is PUTFILE() to get a better suitable dialog for asking the user to specify directory and name for a new file.

Besides that, if you want users to see the file in Excel you can copy over your data to Excel itself with OLE automation of Excel.Application and make your Workbook visible in Excel, even before it's saved. Then users can use the save dialog of Excel, as they are used to, get the alert of Excel when closing it without saving, save in current Excel format, etc. etc.

SELECT yourtable
Copy2Excel()
&& or Copy2Excel(aliasname)

Procedure Copy2Excel()
    Lparameters tcAlias
    tcAlias = Evl(tcAlias,Alias())
    Select * From (tcAlias) into Array paExcel

    Local loExcel
    loExcel = CreateObject("Excel.Application")
    =loExcel.Workbooks.Add()
    With loExcel.ActiveWorkbook.ActiveSheet
       With .Range(.Cells(1,1),.Cells(Alen(paExcel,1),Alen(paExcel,2)))
          .Value = ExecScript("LParameters tcArrayName"+Chr(13)+"Return @&tcArrayName",'paExcel')
          .Columns.AutoFit()
       EndWith 
    EndWith 
    loExcel.Visible = .t.

Bye, Olaf.

Olaf Doschke Software Engineering

https://www.doschke.name

 

[Mike Lewis]

The advantage of PUTFILE() over GETFILE() is that it will warn you if the file already exists. (But that might also be a disadvantage.)

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[Olaf Doschke]

Well, it starts with the title caption of PUTFILE() being "Save as" automatically while you need to provide all parameters of GETFILE() to pass in the last one for the title bar caption. You can provide a new name, too, that's ok.

Bye, Olaf.


Olaf Doschke Software Engineering

https://www.doschke.name