Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Word topic
Keresés

Új hozzászólás Aktív témák

  • #1272 lasarus1988 tag Fire/SOUL/CD #1271
    Új Válasz #1272
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1271 üzenetére

    Nos akkor így oldom meg. A fejléc annyira nem gáz, csináljon valamit a felhasználó is alapon. A törlést pedig egyszeri futtatással megoldom, így csak egyszer fogok bele írni, így nem kell törölni. Az egészet makróbarát sablonba elmenteni és kész is.

    Köszönöm a segítséget!

  • #1270 lasarus1988 tag Fire/SOUL/CD #1269
    Új Válasz #1270
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1269 üzenetére

    Akkor lenne még két kérdésem:

    - hogyan törölhetem egy könyvjelző tartalmát word-ben makróból?
    - hogyan választhatom ki a fejlécben szereplő könyvjelzőt? Csak ott nem működik

  • #1268 lasarus1988 tag Fire/SOUL/CD #1267
    Új Válasz #1268
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1267 üzenetére

    Köszönöm a segítséget és hogy foglalkoztál vele.

    Ha jól sejtem a Te kódod megnyitja a csv fájlt és soronként beolvassa, majd a split fv.-nyel a tömb elemeire bontja. Valami hasonlót akartam írni végső elkeseredésemben, de szerencsére sikerült megoldani.

    És a TestData csv még egyszerű, mert csak be kell olvasni, de a többinél adatfeldolgozás is lesz. Megfelelt vagy sem és mire bukik stb... Majd ezt az eredményt berakni a megfelelő helyre.

    Nem egyszerű az élet :N

  • #1266 lasarus1988 tag lasarus1988 #1265
    Új Válasz #1266
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz lasarus1988 #1265 üzenetére

    Azt hiszem sikerült megoldani.

    Sub haliho()
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim LastRow As Integer
    Dim I As Integer

    Set xlApp = CreateObject("Excel.Application")

    Set xlWb = xlApp.Workbooks.Open("C:\Eredmények\22-november-2010_1_Init_TestData.csv")

    xlApp.Visible = True

    LastRow = xlWb.Worksheets(1).Range("A65535").End(xlUp).Row

    For I = 1 To LastRow

    Word.Application.ActiveDocument.Select

    Select Case xlWb.Worksheets(1).Cells(I, 1).Value
    Case "Mérés időpontja"
    Word.Selection.Bookmarks("MeasureTime").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Mérőszemély"
    Word.Selection.Bookmarks("Engineer").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Ügyiratszám"
    Word.Selection.Bookmarks("ProjectNumber").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Hőmérséklet"
    Word.Selection.Bookmarks("Temperature").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Páratartalom"
    Word.Selection.Bookmarks("Huminidity").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Gyártó"
    Word.Selection.Bookmarks("Manufacturer").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Típus"
    Word.Selection.Bookmarks("Type").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Gyáriszám"
    Word.Selection.Bookmarks("SerialNumber").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Minta száma"
    Word.Selection.Bookmarks("Sample").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    End Select

    Next I

    xlWb.Close
    Set xlWb = Nothing

    xlApp.Quit
    Set xlApp = Nothing

    End Sub

    Így most tökéletesen működik, igaz a csv-ben nem pontosvessző a szeparátor hanem vessző. Ez nem akkora gond mert csak a hőmérsékletnél illetve a páratartalomnál használtam vesszőt, de majd kicserélem pontra.

  • #1265 lasarus1988 tag Fire/SOUL/CD #1264
    Új Válasz #1265
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1264 üzenetére

    A csv fájlokat én állítom elő. Adott egy távközlési műszer. Ennek a műszernek van egy szkript nyelve (lebutított vba, sok mindent nem lehet megtenni, de a szintaxis ugyanaz). Ezzel a műszerrel végzek általam automatizált mérést és az eredményeket ki lehet iratni egy log fájlba. Ezt a log fájlt mentem el csv formátumban (lehet txt-ben is). A logolást úgy végzem ahogy írtad: pontosvesszővel választom el az infókat és vesszővel jelölöm a tizedespontot.

    Elküldtem egy mail-t neked amiben mellékletként csatoltam a testdata csv-t. Mindjárt elküldöm a többit is és akkor Te is látni fogod mi a szerkezete az adatoknak.

    Szerk.:
    Az lemaradt, hogy van lehetőség fejléc/többi adat formátumúra szerkeszteni a testdata csv-t. Kicsit melóznom kell vele, de megoldható. A többi csv amit elküldtem Neked már ilyen formátumú.

  • #1263 lasarus1988 tag Fire/SOUL/CD #1261
    Új Válasz #1263
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1261 üzenetére

    1. Eredetileg vesszővel vannak, de ki tudom cserélni pontra, ha szükséges.

    2. Az iroda gépen WinXP 32bit, Office2007 van.

    3. Csak egy próbát akartam tenni, hogy beolvas-e egyáltalán valamit, és ha sikerül utána ciklusba szervezni.

    4. Nem értem. B1-B10 cellában vannak a szükséges infók, tehát egymás alatt. Az A oszlopban keresek egy kifejezést, amihez a B oszlop információja tartozik. Pl.: A oszlopban: Mérést végezte, ha ezt megtaláltam, akkor a B oszlop tartalmát másolja a doksi könyvjelzőjéhez, tehát Gipsz Jakab-ot (A ciklus csak ideiglenesen megy 10-ig mert ez is változó, csak próbaképpen néztem, mert az csv-nél elegendő ennyi)

    5. Nekem az is tökéletesen megfelelne (a csv fájlok nevei viszont állandóan változnak, pontosabban dátum szerepel a névben, de a dátum utána rész állandó)

    6. Jól értetted. Egy darab doksi könyvjelzőihez kell rendelni több darab csv fájlt tartalmát.

  • #1260 lasarus1988 tag Fire/SOUL/CD #1259
    Új Válasz #1260
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1259 üzenetére

    Csv tartalma:
    Mérés ideje; 2010.11.22. 16:07:12
    Mérést végezte; Gipsz Jakab
    Ügyiratszám; 12345
    Hőmérséklet; 23.1
    Páratartalom; 45,1
    Gyártó; Valami
    Típus; Valami
    Gyáriszám; QWERTZ123456
    Minta száma; 1

    Jelenleg ezzel a kóddal próbálkozom, a kiemelt résznél áll meg 'subscript out of range' hibával
    Sub Megnyit()
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim ExcelApp As Excel.Application
    Dim ExcelDoc As Excel.Workbook
    Dim FilePath As Variant
    Dim LastRow As Double
    Dim I
    Dim InputData

    Set WordApp = CreateObject("Word.Application")
    FilePath = Application.GetOpenFilename("Mérési eredmények (*.doc), *.doc", , "Válassza ki az importálnadó fájlt!", , False)
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open(FilePath)

    FilePath = Application.GetOpenFilename("Mérési eredmények (*.csv), *.csv", , "Válassza ki az importálnadó fájlt!", , False)
    Shell "excel.exe " & FilePath, vbNormalFocus

    For I = 1 To 10

    [B] Application.Windows("22-november-2010_1_Init_TestData").Activate
    InputData = Application.Windows(1).Sheets(1).Range("A1").Value[/B]

    Select Case InputData
    Case "Mérés időpontja"
    WordDoc.Bookmarks("MeasureTime").Select
    WordDoc.Bookmarks("MeasureTime").Range = Cells(I, 2)
    Case "Mérőszemély"
    WordDoc.Bookmarks("Engineer").Select
    WordDoc.Bookmarks("Engineer").Range = Cells(I, 2)
    Case "Ügyiratszám"
    WordDoc.Bookmarks("ProjectNumber").Select
    WordDoc.Bookmarks("ProjectNumber").Range = Cells(I, 2)
    Case "Hőmérséklet"
    WordDoc.Bookmarks("Temperature").Select
    WordDoc.Bookmarks("Temperature").Range = Cells(I, 2)
    Case "Páratartalom"
    WordDoc.Bookmarks("Huminidity").Select
    WordDoc.Bookmarks("Huminidity").Range = Cells(I, 2)
    Case "Gyártó"
    WordDoc.Bookmarks("Manufacturer").Select
    WordDoc.Bookmarks("Manufacturer").Range = Cells(I, 2)
    Case "Típus"
    WordDoc.Bookmarks("Type").Select
    WordDoc.Bookmarks("Type").Range = Cells(I, 2)
    Case "Gyáriszám"
    WordDoc.Bookmarks("SerialNumber").Select
    WordDoc.Bookmarks("SerialNumber").Range = Cells(I, 2)
    Case "Minta száma"
    WordDoc.Bookmarks("Sample").Select
    WordDoc.Bookmarks("Sample").Range = Cells(I, 2)
    End Select

    Next I

    Set WordDoc = Nothing
    Set WordApp = Nothing
    Set ExcelApp = Nothing
    Set ExcelDoc = Nothing

    End Sub

  • #1258 lasarus1988 tag Fire/SOUL/CD #1257
    Új Válasz #1258
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1257 üzenetére

    A könyvjelzőhöz rendeléssel nem lenne gond, azt megoldom. De még rendesen megnyitni sem tudom. Már próbáltam vesszővel, pontosvesszővel illetve |-el, de egyik sem sikerült.

    Már ott tartok, hogy csinálok egy excel fájlt amiben benne van a makró és az fog nyitogatni mindent illetve mozgatni. Remélem sikerül.

  • #1256 lasarus1988 tag Fire/SOUL/CD #1255
    Új Válasz #1256
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz Fire/SOUL/CD #1255 üzenetére

    Összefoglalva, hogy értsd a logikámat:

    -adott egy előre elkészített word doksi amiben a megfelelő helyeken könyvjelzők vannak
    -adott 'x' darab '.csv' fájl ami tartalmazza a számomra fontos infókat, amiket a könyvjelzők helyére szeretnék berakni.

    Azért akartam word-ben megírni a makrót, mert akkor azt beépíthetem a jegyzőkönyv sablonba és nem kell egy új excel munkafüzet ami megnyitja a csv fájlokat illetve a word doksit.

    A .csv fájlaim viszont pontosvesszővel vannak elválasztva. Átírtam a Semicolon:=True -ra de nem segített.

  • #1253 lasarus1988 tag
    Új Válasz #1253
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    Sziasztok!

    A következő a problémám (Office2007):
    -adott 'x' darab '.csv' kiterjesztésű excel fájlom
    -ezeket a '.csv' fájlokat szeretném megnyitni excelben, word makró segítségével
    -ha külön nyitom meg a '.csv' fájlokat, akkor az excel tudja a dolgát, szépen elválaszt
    -ha word makróból nyitom meg akkor mindent az első oszlopban hagy és látszanak az elválasztó karakterek

    Próbáltam csak simán megnyitni makróból, opentext-el, vagy éppen simán megnyitni és utána szövegből-oszlop makrót ráengedni, de egyik sem működik.

    Van valami megoldá rá, hogy a wordben írt makró helyesen nyissa meg excelben a '.csv' fájlokat?

    Köszönöm a segítséget!

Új hozzászólás Aktív témák