|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Senior Member
Iscritto dal: Feb 2003
Messaggi: 2805
|
VB e EXCEL
Vorrei aprire excel premendo un pulsante sotto VB
Scrivendo le righe principali: Dim appExcel As New Excel.Application Dim cartExcel As Excel.Workbook Dim foglioExcel As Excel.Worksheet Set cartExcel = Excel.Workbooks.Add Set foglioExcel = Excel.Worksheets.Add Noto che scrivendo Excel. non mi compare il menù delle proprietà che posso attribure a quell'oggetto, cioè significa che non lo riconosce. MI sapete dire come devo fare, affinche funzioni. Modificate anche le stringhe....basti che mi si apre un nuovo file in excel Ciao e grazieeeeeee
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER |
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Feb 2003
Messaggi: 2805
|
VB6
Voglio aprire un foglio nuovo in EXCEL premendo un pulsante in VB.
Mi dite la sintassi corretta. Ho scaricato un file dove c'era tale esempi, ho copiato le stringhe sotto il mio pulsante, quando lo premo mi dice: ERRORE DI COMPILAZIONE: TIPO DEFINITO DALL'UTENTE NON DEFINITO Altra prova che ho fatto, sul file di esempio che ho scaricato: Prendendo in considerazione questa stringa Dim appExcel As New Excel.Application Ed eliminando .Application rimane Dim appExcel As New Excel mettendo il . mi apre il menù a tendina con le proprietà. Facendo uguale sul mio progetto, questo non funziona, cioè mettendo il . non si apre nessun menù a tendina, come se Excel non fosse riconosciuto. In poche parole, come faccio ad aprire un file EXCEL premendo un pulsante???? Ciao e grazieeeeeeeeee
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER |
![]() |
![]() |
![]() |
#3 |
Senior Member
Iscritto dal: Feb 2003
Messaggi: 2805
|
OK
Ok ci sono riuscito
Adesso la parte più difficile: Fino adesso ho fatto la parte dell'intestazione. Ora devo fare il corpo. Nel corpo devo inserire i dati uno di seguito all'altro. Quindi ho gia creato un recordset e devo distruire i dati per righe: Range("A13").Select ActiveCell.FormulaR1C1 = "[Rigo]" Range("B13").Select ActiveCell.FormulaR1C1 = "[Servizio]" Range("C1313").Select ActiveCell.FormulaR1C1 = "[UT]" Range("E13:F13").Select ActiveCell.FormulaR1C1 = "[CS]" Range("G13:H13").Select ActiveCell.FormulaR1C1 = "[NL]" Range("I13:J13").Select ActiveCell.FormulaR1C1 = "[NS]" Cpme faccio a fargli compilare una riga poi andare sotto prendere il secondo record, inserire i valori nel foglio e cosi via per tutto il recordset???? Ciao e grazieeeeeeeeee
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER |
![]() |
![]() |
![]() |
#4 |
Bannato
Iscritto dal: Sep 2005
Città: Walthamstow, London
Messaggi: 138
|
Puoi indirizzare le celle con Cells(numeroriga, numerocolonna).
|
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 00:46.