Eroare deschidere fisier Excel

#1
CristiPitis

Posted 10 May 2010 - 12:11

New Member

Grup: Members
Posts: 2
Înscris: 06.02.2010

Salut tuturor puteti va rog sa ma ajutati intr-o problema ?
Am un program in VB6 unde intr-un combobox sunt mai multe denumiri de fisier excel. Prin click pe un buton, functie de combobox.text se deschide un anumit fisier excel. Arata cam asa :
Private Sub Command1_Click()
Dim LUNA As String
LUNA = Combo1.Text
Dim xlTmp As Excel.Application
Set xlTmp = New Excel.Application
xlTmp.Workbooks.Open ("C:\Documents and Settings\CRISTI\Desktop\RECONCILIERE\DataBase\XLS\") & LUNA & ".XLS"
Excel.Application.Visible = True

problema e ca dupa ce deschid, citesc si inchid un fisier excel, daca selectez din combo un alt fisier pentru deschidere, nu se mai deschide, trebuie sa inchid aplicatia si sa reiau.
Stie cineva cum se rzolva ?

Multumesc mult !

Back to top

#2
dumitrasrazvan

Posted 27 May 2010 - 11:05

Junior Member

Grup: Members
Posts: 83
Înscris: 12.02.2010

CristiPitis, on 10th May 2010, 13:11, said:

Salut tuturor puteti va rog sa ma ajutati intr-o problema ?
Am un program in VB6 unde intr-un combobox sunt mai multe denumiri de fisier excel. Prin click pe un buton, functie de combobox.text se deschide un anumit fisier excel. Arata cam asa :
Private Sub Command1_Click()
Dim LUNA As String
LUNA = Combo1.Text
Dim xlTmp As Excel.Application
Set xlTmp = New Excel.Application
xlTmp.Workbooks.Open ("C:\Documents and Settings\CRISTI\Desktop\RECONCILIERE\DataBase\XLS\") & LUNA & ".XLS"
Excel.Application.Visible = True

problema e ca dupa ce deschid, citesc si inchid un fisier excel, daca selectez din combo un alt fisier pentru deschidere, nu se mai deschide, trebuie sa inchid aplicatia si sa reiau.
Stie cineva cum se rzolva ?

Multumesc mult !

Pune mai mult cod. Eu unul nu imi dau seama care ar putea fi problema din ce ai postat.

Back to top

#3
biceman

Posted 06 June 2010 - 19:19

Member

Grup: Members
Posts: 922
Înscris: 19.06.2006

Process.Start("C:\Documents and Settings\CRISTI\Desktop\RECONCILIERE\DataBase\XLS\") & LUNA & ".XLS")
dar e in vb2008 sau 2010 express (e gratuit)

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Eroare deschidere fisier Excel

#1 CristiPitis Posted 10 May 2010 - 12:11

#2 dumitrasrazvan Posted 27 May 2010 - 11:05

#3 biceman Posted 06 June 2010 - 19:19

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
CristiPitis

Posted 10 May 2010 - 12:11

#2
dumitrasrazvan

Posted 27 May 2010 - 11:05

#3
biceman

Posted 06 June 2010 - 19:19