Search  
Thursday, May 24, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Office Automation  Salvarea unui f...
 Salvarea unui fisier XLS, care sa cuprinda in titlul lui saptamana curenta.
 
 10/24/2008 10:47:15 AM
User is offlineted
7 posts


Salvarea unui fisier XLS, care sa cuprinda in titlul lui saptamana curenta.
 (Romania)

Salutare tuturor.

Ma confrunt cu urmatorul chitibus. Vreau sa salvez un raport in format xls care sa cuprinda in titlul lui numarul saptamanii curente.

Exemplu:

x1=DTOS(DATE())
loExcel1= newobject("excel.application")
loExcel1.Workbooks.Open( "c:\bios\11018.xls")
loSheet=loExcel1.Sheets(1)
loSheet.cells(2,2).value="Raport BIOS"

loExcel1.ActiveWorkbook.SaveAs("c:\bios\11018_&x1..xls")
loSheet= loExcel1.Sheets(1)
loExcel1.Visible=.t.
Rezultatul acestui exemplu va arata asa: 11018_20081023, ei bine eu vreau sa arate asa: 11018_W43. Stiu ca pentru aflarea numarului saptamanii din an este: WEEK(DATE()) , dar nu reusesc sa il salvez in titlul. Orice sugestie este bine venita.

Multumesc. 
 10/24/2008 10:50:43 AM
User is offlineted
7 posts


Re: Salvarea unui fisier XLS, care sa cuprinda in titlul lui saptamana curenta.
 (Romania)
 ted wrote

Salutare tuturor.

Ma confrunt cu urmatorul chitibus. Vreau sa salvez un raport in format xls care sa cuprinda in titlul lui numarul saptamanii curente.

Exemplu:

x1=DTOS(DATE())
loExcel1= newobject("excel.application")
loExcel1.Workbooks.Open( "c:\bios\11018.xls")
loSheet=loExcel1.Sheets(1)
loSheet.cells(2,2).value="Raport BIOS"

loExcel1.ActiveWorkbook.SaveAs("c:\bios\11018_&x1..xls")
loSheet= loExcel1.Sheets(1)
loExcel1.Visible=.t.
Rezultatul acestui exemplu va arata asa: 11018_20081023, ei bine eu vreau sa arate asa: 11018_W43. Stiu ca pentru aflarea numarului saptamanii din an este: WEEK(DATE()) , dar nu reusesc sa il salvez in titlul. Orice sugestie este binevenita.

Multumesc. 
 10/24/2008 11:22:03 AM
User is offlineDaniel Buduru
2334 posts
1st




Re: Salvarea unui fisier XLS, care sa cuprinda in titlul lui saptamana curenta.
 (N/A)
 ted wrote

Salutare tuturor.

Ma confrunt cu urmatorul chitibus. Vreau sa salvez un raport in format xls care sa cuprinda in titlul lui numarul saptamanii curente.

Exemplu:

x1=DTOS(DATE())
loExcel1= newobject("excel.application")
loExcel1.Workbooks.Open( "c:\bios\11018.xls")
loSheet=loExcel1.Sheets(1)
loSheet.cells(2,2).value="Raport BIOS"

loExcel1.ActiveWorkbook.SaveAs("c:\bios\11018_&x1..xls")
loSheet= loExcel1.Sheets(1)
loExcel1.Visible=.t.
Rezultatul acestui exemplu va arata asa: 11018_20081023, ei bine eu vreau sa arate asa: 11018_W43. Stiu ca pentru aflarea numarului saptamanii din an este: WEEK(DATE()) , dar nu reusesc sa il salvez in titlul. Orice sugestie este bine venita.



X1='W'+TRANSFORM(WEEK(DATE())

loExcel1.ActiveWorkbook.SaveAs("c:\bios\11018_&x1..xls")


Daniel Buduru
 10/24/2008 11:35:01 AM
User is offlineted
7 posts


Re: Salvarea unui fisier XLS, care sa cuprinda in titlul lui saptamana curenta.
 (Romania)

Multumesc frumos. Toata stima.

 
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Office Automation  Salvarea unui f...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement