Ú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) -
G.I.JOE
senior tag
Sziasztok!
VB-ben csináltam egy programot (.net3.5) és szeretném egy másik gépen is futtatni, de mindig csak azt írja ki, hogy hibát észlelt és leáll! Semmi extra nincs benne, form, xls-ből olvasás és txt-be írás. A célgépen fent van a .Net 3.5. A \bin-ből szedtem az exe-t. Telepíteni nem tudok, mert a másik gépen nincs adminom..
Új hozzászólás Aktív témák
- 3D nyomtatás
- exHWSW - Értünk mindenhez IS
- Filmvilág
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Androidos fejegységek
- Hálózati / IP kamera
- Házimozi haladó szinten
- Bambu Lab X1/X1C, P1P-P1S és A1 mini tulajok
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Internet Rádió építése (hardver), és programozása
- További aktív témák...
- Asus ROG Phone 6 - Limited Batman Edition / BONTATLAN - 3 év gari
- Huawei Matebook D14 i5-11.gen/16GB DDR4/512GB PCIe SSD/14" Full HD IPS/Gar.:2025.10
- Rog 4070 Ti //KERESEM!!//
- Binepad BN006, programozható, mechanikus macropad, low profile Kailh Choc v1 Red switchek
- CoolerMaster ControlPad, programozható, mechanikus macropad, Gateron Red switchek