Come accedere fogli di calcolo Excel con Visual Basic 6

Creazione , l'accesso e l'aggiunta o l'eliminazione di dati in Excel è tutto possibile con Visual Basic 6 . Alcune brevi righe di codice in Visual Basic potranno realizzare le prime due azioni . Tuttavia, la modifica dei dati di Excel è più complicato e richiede molto più che possibile spiegazione in questo articolo . Scrittura di programmi per fare questo può essere utile se lo sviluppatore ha bisogno per semplificare l'uso di Excel per gli utenti inesperti . Utilizzo di moduli di Visual Basic consentono più modifica e istruzioni di quanto potrebbe essere possibile in Excel . Istruzioni
1

Aprire il 6 programma di Microsoft Visual Basic , . " Nuovo progetto " click "File" e scegliere " Standard.EXE " dall'elenco dei modelli. Una nuova forma si aprirà sullo schermo , con l'etichetta " Progetto 1 - Form1 (Form) . " Fare doppio clic tre volte sul icona del pulsante di comando nel pannello a sinistra per aggiungere tre pulsanti per la forma . Salvare il modulo con un nome di file di vostra scelta .
2

Clicca su "Visualizza " e "Proprietà Pages " ( questo potrebbe essere già mostrato nel pannello di destra) , e fare clic sul primo pulsante sul form . Nella finestra Proprietà , fare doppio clic su " Caption " e modificare il testo di "aprire Foglio di lavoro esistente . " Cambiare la seconda didascalia pulsante "Crea nuovo foglio di lavoro . " Ripeti per il terzo pulsante , ma cambiano la didascalia " Exit ". Trascinare le prime due in modo che essi siano uno di fronte all'altro . Posizionare la terza di seguito gli altri due .
3

doppio clic sul pulsante "Apri esistente foglio di calcolo" . Questo cambia la visualizzazione da " oggetto" a " Codice" e inserisce una nuova procedura. Inserisci queste righe esattamente come appaiono tra il " Private Sub Command1_Click ( ) " e "End Sub ", che dovrebbe essere già lì .
Opzione

ExplicitDim MyExcel As New Excel.ApplicationDim MyWorkbook Come Excel . WorkbookDim MyWorksheet Come Excel.WorksheetDim FileName Come StringFileName = InputBox ( "Inserire il nome completo e il percorso del file di Excel" ) Set MyWorkbook = MyExcel.Workbooks.Open ( FileName ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True

4

Fare doppio clic su " Crea nuovo foglio di lavoro " e digitare queste righe di codice .

MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( " Foglio1 " ) Set MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
5

Finisci il codice facendo doppio clic sul tasto "Exit" sul modulo e digitare queste righe .

MyExcel.QuitEnd
Pagina 6

prova il programma premendo il tasto "F5 ". Se non funziona , torna indietro e ricontrollare il codice. Deve essere esatti . Se si ottiene un errore che dice che il file esistente non può essere trovato , controllare la posizione e assicurarsi che hai inserito esattamente. Quando tutto funziona , fare clic su "File ", poi "make" e seguirla con il nome assegnato al progetto in partenza. Questo creerà una versione eseguibile è possibile eseguire direttamente .