Hvordan automatisk konvertere et Excel-fil til tekst ved hjelp av Visual Basic

May 18

Som en datamaskin programmerer, du kommer til å kjøre inn filformater som du må konvertere til et format som er lett leses av andre programmer. I Visual Basic, kan du konvertere en Microsoft Excel-regneark til en tekst format ved hjelp av SaveAs metoden og XlFileformat telling. Denne oppregning angir filformat når du lagrer regnearket. Bruk xlTextWindows å automatisk lagre regnearket som Windows tekst.

Bruksanvisning

1 Start Microsoft Visual Basic Express, klikk på "Nytt prosjekt" på ruten til venstre på skjermen, og velg deretter "Console Application". Klikk "OK" for å opprette en ny konsoll prosjekt.

2 Klikk på "Project" -menyen, og velg "<prosjektnavn> Egenskaper." Klikk "Referanser", velg deretter "Legg til". Velg "COM" og klikk "Microsoft Excel <versjonsnummer> Object Library." Klikk på "OK".

3 Legg til følgende navne i den første linjen i koden modul:

importen Microsoft.Office.Interop

4 Skriv inn følgende for å opprette Excel objektvariabler:

Dim XLS Som Excel.Application

XLS = New Excel.Application

5 Sett Excel objekt for å vise Excel-arbeidsbok.

XLS.Visible = True

XLS.WindowState = Excel.XlWindowState.xlMaximized

6 Definere banen og navnet på Excel-arbeidsboken til å konvertere.

Dim WB Som Excel.Workbook = XLS.Workbooks.Open ( "C: \ ExcelFile.xlsx")

7 Definere banen og navnet på tekstfilen.

WB.SaveAs("C:\textFile.txt", Excel.XlFileFormat.xlTextWindows)

8 Trykk '' F5 '' for å kjøre programmet og gjøre konverteringen.