da Office 2000 a Office 2003 -Chiedo aiuto

Article View: free.it.visual-basic

Article #113

Back to free.it.visual-basic Previous Next

#113

From: Giliol
Date: Sat, 31 Oct 2009 08:55

30 lines
1963 bytes

Sono un dilettante di VB6, con grande impegno avevo creato un programmino
per calcolare il mio orario d'ufficio registrando i dati su un foglio Excel.
Funzionava tutto bene, adesso in ufficio hanno installato Office 2003, non
funziona pi� nulla. Qui di seguito ho incollato il codice che pigiando il
tasto "Apri" mi prendeva i dati dal foglio Excel dalla cartella
c:\Documenti\ecc....
cosa devo cambiare?
La sintassi � diversa per Office 2003?
Grazie a tutti!


Private Sub cmdApri_Click()
cmdSalva.Visible = True

Dim myobject As Object
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = Excel.Workbooks.Open("c:\Documenti\" & Form1.txtCognome.Text &
" orario " & Form1.txtAnno.Text & ".xls")
'*************************************
xlBook.Application.Visible = False
With xlBook.ActiveSheet
A1.Text = .Cells(1, 1).Value
A2.Text = .Cells(2, 1).Value
A3.Text = .Cells(3, 1).Value
ecc
ecc
ecc

Technical Details

Message-ID: <FYSGm.21916$813.2060@tornado.fastwebnet.it>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 3de4ef2fba,24df882e5c93b64a,start
X-Google-Attributes: gid3de4ef2fba,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!tornado.fastwebnet.it!53ab2750!not-for-mail
From: "Giliol" <gilio.ligustro@fastwebnet.it>
Newsgroups: free.it.visual-basic
Subject: da Office 2000 a Office 2003 -Chiedo aiuto
Lines: 33
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
X-RFC2646: Format=Flowed; Original
Message-ID: <FYSGm.21916$813.2060@tornado.fastwebnet.it>
Date: Sat, 31 Oct 2009 09:55:57 +0100
NNTP-Posting-Host: 31.237.73.57
X-Complaints-To: newsmaster@fastweb.it
X-Trace: tornado.fastwebnet.it 1256979365 31.237.73.57 (Sat, 31 Oct 2009 09:56:05 CET)
NNTP-Posting-Date: Sat, 31 Oct 2009 09:56:05 CET