Recently I have written a programme to find the open tables and
it will send to excel (in DBF format) later you can save it the
way you want, here is the code :
(The only change you need to do is location of Excel and Temp
directory , if required)
HTH
Include "mapbasic.def"
Declare Sub main
Declare Sub Saveas
Global SZtabnames() as string
Sub Main
Dim m as smallint, i as integer
m = Numtables()
i = 1
for i = 1 to m
redim SZtabnames(i)
SZtabnames(i) = tableinfo(i, tab_info_name)
Next
Dialog
Title "Export to Excel"
Position 2,1
Control ListBox Position 3,20 Width 128 Height 80 ID 1100 title
from variable SZtabnames
Control OKButton Title "Export to Excel" calling Saveas
Control CancelButton Title "Finish"
End Sub
Sub Saveas
Dim nChan_num As Integer,
SZTabname as string
If readcontrolvalue(1100) then
SZTabname = SZtabnames(readcontrolvalue(1100))
Commit Table Tabname As "c:\temp\"+Tabname+".dbf" TYPE DBF
Charset "WindowsLatin1"
Run Program "c:\progra~1\micros~1\office\Excel.exe"
nChan_num = DDEInitiate("EXCEL","System")
DDEExecute nChan_num, "[OPEN(""c:\temp\"+SZTabname+".dbf"")]"
DDETerminateAll
Else
Note "Please Select a table first !!!"
Dialog preserve
End if
End Sub
Date sent: Wed, 27 Oct 1999 08:20:28 +0100
From: John Blute <[EMAIL PROTECTED]>
Organization: Maunsell Ltd
To: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
Subject: MI Exporting tables
Hi,
I'm a new(ish) user to MAPINFO so excuse the maybe simple
question but can anyone advise as to the best way to export a
table into, say microsoft word, and retain any graphic's, i.e
columns and rows ?..I've exported to an ascii (.txt) file but
its
all jumbled up and you loose column headings etc etc............
Anyone with an idea ?
Cheers
John
--
John Blute
Maunsell Ltd
United Kingdom
-----------------------------------------------------------------
----- To unsubscribe from this list, send e-mail to
[EMAIL PROTECTED] and put "unsubscribe MAPINFO-L" in the message
body, or contact [EMAIL PROTECTED]
===================================================
Aditya
Executive (Systems)
Information Systems Department
GCMMF, Anand
E-mail me at :[EMAIL PROTECTED]
Web Site: http://www.amul.com
===================================================
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
