Új hozzászólás Aktív témák
-
G.I.JOE
senior tag
Helló!
Csak ismerkedek a VB-el és szeretnék egy egyszerű progit írni, ami excelből egy tabulátoros unicode txt-t csinál. Nos, az unicode-dal is van gondom (OpenTextFileWriter), de a fő bajom az, hogy ha VStudioból indítom a progit, akkor lefut rendesen, de ha a generált exe-t indítom el és eljut az excel műveletekig, akkor az "Nincs elég szabad memória ..." hibaüzenettel leáll.
Valami banális dolgot nem tudok?
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim munkakonyvtar As String = "c:\" 'itt a forras excel es ide generalja az eredmenyfilet
Dim file = My.Computer.FileSystem.OpenTextFileWriter(munkakonyvtar + "test.txt", False) 'kimeneti file
Dim munkalap As String = "Munka1" 'a használandó munkalap neve az excelben
Dim sor As Integer = 6 'aktualis excel cella sorszama, kezdoertek az elso adat sor száma
Dim oszlop As Integer = 2 'aktualis excel cella oszlop
Dim cella As String = "" 'aktualis excel cella tartalma
Dim MH_sor As String = "" 'aktualis sor a kimeneti fileba
xlApp = New Excel.Application
xlWorkBook = xlApp.Workbooks.Open(munkakonyvtar + "test1.xlsx")
xlWorkSheet = xlWorkBook.Worksheets(munkalap)
cella = xlWorkSheet.Cells(sor, 1).value
Do While Len(Trim(cella)) > 0
MH_sor = xlWorkSheet.Cells(sor, 2).value + Chr(9) + xlWorkSheet.Cells(sor, 3).value + Chr(9) + xlWorkSheet.Cells(sor, 4).value
file.WriteLine(MH_sor)
sor = sor + 1
cella = xlWorkSheet.Cells(sor, 1).value
Loop
MsgBox("Kész!")
xlWorkBook.Save()
xlWorkBook.Close()
xlApp.Quit()
file.Close()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
Új hozzászólás Aktív témák
- HP ENVY x360 15-fh0755ng Convertible - ÚJ - 15,6" notebook - Ryzen 5, 16GB, 512SSD, Win11
- Iphone 12 64GB független 94% akku
- HP PROBOOK 450 G9 (6A150EA) - ÚJ - 15,6" FullHD IPS üzleti notebook - i3-1215U, W11pro
- fehér RTX3060Ti Gamer PC Intel i5-11400F, Zotac Gaming RTX3060Ti 8GB, 16GB Corsair RAM, vízhűtés!
- PlayStation 5 825GB - 1 év garancia, vállalkozástól!