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

• #12643 archen csendes tag Delila_1 #12622

  Új Válasz 2012-01-13 21:17:26 #12643

  Ú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

  

  archen

  csendes tag

  válasz Delila_1 #12622 üzenetére

  Köszönöm Delila, tökéletesen működik!

• #12621 archen csendes tag

  Új Válasz 2012-01-12 12:17:46 #12621

  Ú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

  

  archen

  csendes tag

  Sziasztok, megint elakadtam

  A " & esc(Str(.Cells(rowctr, i).Value)) & " kifejezésnél szeretnék segítséget kérni.
  Egy olyan makróra lenne szükségem, ami egy tetszőleges excel cellába felsorolná ennek az 1-től i-ig terjedő alakjait (vesszővel elválasztva), pl i=3 esetén ez lenne a cella tartalma:

  " & esc(Str(.Cells(rowctr, 1).Value)) & "," & esc(Str(.Cells(rowctr, 2).Value)) & "," & esc(Str(.Cells(rowctr, 3).Value)) & "

  előre is köszönöm! =)

  -Rics

• #12443 archen csendes tag

  Új Válasz 2012-01-05 12:38:27 #12443

  Ú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

  

  archen

  csendes tag

  Sziasztok!

  Lenne egy komoly problémám, ami a következő:
  Makrót írok excelben, ami összeköttetést biztosítana MySQL-el OBDC-n keresztül (pontosabban táblázatot tölt fel szerverre). Azon a ponton akadtam el, ahol sql syntaxisban szeretnék egy Excel mezőre hivatkozni, mint változóra. Utána olvastam már számos külföldi fórumban, és láttam hogy ezzel másnak is volt problémája, azonban megoldás nem született rá eddig. A környezet a következő:

  strsql = "INSERT INTO test_table (Variant1,Variant2,Variant3,Variant4,Variant5,Variant6) VALUES ('" & _
  esc(Str(.Cells(rowctr, 1).Value)) & "','" & _
  esc(Str(.Cells(rowctr, 2).Value)) & "','" & _
  esc(Str(.Cells(rowctr, 3).Value)) & "','" & _
  esc(Str(.Cells(rowctr, 4).Value)) & "','" & _
  esc(Str(.Cells(rowctr, 5).Value)) & "','" & _
  esc(Str(.Cells(rowctr, 6).Value)) & "')"

  A probléma forrásai a Variant1,2,3,4... lennének, fix értéken tökéletesen működik a makró, azonban ami a cél lenne az az, hogy - esetünkben ezt a 6 column nevet - az excel tábla H4-H10 mezőiből szedje ki, próbálkoztam már több megoldással is, pl:

  (" & Cells(4, 8) & "," & Cells(5, 8) & "," & Cells(6, 8) & "," & Cells(7, 8) & " ......)

  vagy

  (" & H4 & "," & H5 & "," & H6 & " .....)

  Ha bárkinek bármi ötlete, vagy ezirányú tapasztalata lenne, nagyon hálás lennék érte!

  előre is köszönöm!

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