Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zapis do pliku Excela
Manaslu



Typ: neutral
Postów: 41
Zarejestrowany: Dec 2003
Zapis do pliku Excela

Czy ktoś może zapisywał jakiś string do innego fomatu niż tekstowy? Konkretnie chodzi mi o zapis do formatu Excel-a. Dokładnie rzecz biorąc to poniższa procka fajnie zapisuje do pliku tekstowego, ale jak zrobic cos podobnego by zapisywalo do pliku .xls ?

Dim oFile As FileStream
Dim oWriter As StreamWriter
Dim sPath as String

oFile = New FileStream(sPath, FileMode.Create, FileAccess.Write)
oWriter = New StreamWriter(oFile)
oWriter.WriteLine("blabla"
oWriter.Close()

22-09-2004 18:28
Pokaż profil Manaslu  Wyślij email do Manaslu        2130338
musman
www.codec.pl



Typ: neutral
Postów: 202
Zarejestrowany: Mar 2003

witam
poszukaj na msdn ... jakis czas temu robilem zapis i tworzenie xls ale nie dzialalem na tym dalej i nie pamietam dokladnie jak to szlo ... szukaj od tego tematu :
http://support.microsoft.com/default.aspx?scid=kb;en-us;142387

pozdrawiam

24-09-2004 10:08
Pokaż profil musman  Wyślij email do musman   Odwiedź stronę musman       13495362    3559336
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Sub SaveAsExcel()
Dim ExcApp As Excel.Application
Dim ExcWbk As Excel.Workbook
Dim ExcWsh As Excel.Worksheet
Dim ExcRng As Excel.Range
Dim i As Long, j As Long

On Error GoTo Err_SaveAsExcel
Set ExcApp = CreateObject("Excel.Application"
Set ExcWbk = ExcApp.Workbooks.Add
Set ExcWsh = ExcWbk.Worksheets(1)
ExcWsh.Range("A1" = "bla bla bla"
ExcApp.Visible = True

Exit_SaveAsExcel:
    On Error Resume Next
    Set ExcRng = Nothing
    Set ExcWsh = Nothing
    Set ExcWbk = Nothing
    Set ExcApp = Nothing
    Exit Sub
Err_SaveAsExcel:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_SaveAsExcel:
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

26-09-2004 16:24
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Manaslu



Typ: neutral
Postów: 41
Zarejestrowany: Dec 2003
Super cenna wskazowka. Dziekuje !!!

Dziala swietnie.
Jesli ktos jest zainteresowany szczegolami to dajcie znac na forum lub mailem.

Pozdrawiam

28-09-2004 10:02
Pokaż profil Manaslu  Wyślij email do Manaslu        2130338
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1