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

• Kija aktív tag

  #3096

  #3095 sztanozs

  2019-05-08 22:03:04

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  #3095 sztanozs

  #3095 sztanozs

  Nem jó a sima Folder típus, így kell deklarálni (és Scriptinget behivatkozni):
  Dim oFolder As Scripting.Folder

  Vagy ha nem akarsz referenciákat, akkor lehet sima Object (vagy akár Variant).

  Köszi, közben én is ezt a megoldást találtam meg. És tényleg így jó.

• Kija aktív tag

  #3094 2019-05-05 12:22:10

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  És akkor egy másik kérdés.
  Egy adott email fiók emailjeiből szeretném lementeni a csatolmány fotókat az email tárgy mezőjéből származó nevű könyvtárba, de úgy hogy a csatolmánynak új nevet adok a könyvtár nevéből, a beérkezés dátumából és egy sorszámból.
  Szuperül megszámolja a kód a csatolmányok számát az épp a for ciklus által kiválasztott emailnél, ám a mentés nem megy mert típus hibával megáll az alábbi sornál:
  Set myFolder = FSO.GetFolder(myPath)
  A myPath egy sztring típusú változó és ezen sor előtt megkapja a megfelelő értéket. myFolder Folder típusú változó. FSO pedig FileSystemObject típus.
  Mi lehet a gond?

• Kija aktív tag

  #3093

  #3092 sztanozs

  2019-05-05 11:03:16

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  #3092 sztanozs

  #3092 sztanozs

  Ha HTML az email, akkor XML DOM, ha nem akkor kereshetsz szövegre.

  Szövegben tudtam végül keresni. Köszi

• Kija aktív tag

  #3091 2019-04-20 11:33:42

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  Sziasztok!
  Outlookból kellene átemelnem email részeket Excelbe.
  Nagyjából meg is van, de a HTMLBody túl nagy hogy stringként dolgozzak vele (az üzenet bizonyos részeit kellene bizonyos cellákba áthelyeznem).. Ezt hogyan lehet megoldani?

• Kija aktív tag

  #2582 2014-12-20 11:07:47

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  Még egy kérdés:
  Kiraktam egy gombot, amit ha megnyomok akkor csatlakozik az Internethez a PC a cmdline-t meghíva a RASDIAL-al.
  Viszont két felhasználói név jelszó párossal akarom ezt használni.
  Ehhez két választógombot raktam ki.
  Ha bejelölöm valamelyiket, akkor az egy-egy string változónak a felhasználói nevet (ami ugye egy email cím) és a jelszót adja értékül.
  Ez működik is viszont ha bejelölöm valamelyik választógombot akkor automatikusan megnyitja az Outlook levelezőt és erre az email címre mint címzett nyit egy új emailt.
  Arra már rájöttem, hogy a választó gomb felirata okozza ezt. Mindkettőnek a felhasználói név (ami itt ugye egy email cím) a felirata. ha ezt átírom másra, akkor is az eredeti email címmel nyit egy új üzenetet...
  Ezt szeretném kiküszöbölni.
  Van ötletetek hogyan?
  Sub Választógomb1_Kattintás()
  userstr = "valami@valahol.hu"
  passwstr = "password1"
  End Sub
  Sub Választógomb2_Kattintás()
  userstr = "masvalaki@masvalahol.hu"
  passwstr = "password2"
  End Sub

• Kija aktív tag

  #2580

  #2576 Delila_1

  2014-12-15 20:17:43

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  #2576 Delila_1

  #2576 Delila_1

  

  Sub Valami()
  Dim szoveg As String
  szoveg = Sheets("Munka1").Range("A" & Sheets("Munka1").Range("C2"))
  
  MsgBox szoveg
  End Sub

  Bocs, mégis működik! Elsőre elírtam valamit...
  Köszi a segítséget!

• Kija aktív tag

  #2577

  #2576 Delila_1

  2014-12-15 17:39:36

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  #2576 Delila_1

  #2576 Delila_1

  

  Sub Valami()
  Dim szoveg As String
  szoveg = Sheets("Munka1").Range("A" & Sheets("Munka1").Range("C2"))
  
  MsgBox szoveg
  End Sub

  Kipróbáltam, de nálam ez nem működik
  De azért köszi!

• Kija aktív tag

  #2575 2014-12-15 11:10:30

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  Ebbe a kompatibilitási problémába én is belefutottam ActiveX vezérlőelemmel (ComboBox).
  Viszont ha Űrlapvezérlő elem legördülő listát hozok létre, akkor meg ilyen nevet ad neki: Lenyíló 13.
  Hogyan lehet erre hivatkozni (space van benne illetve ékezetes betűk), vagy hol lehet átnevezni?
  Egyáltalán hogyan lehet egy változóba rakni VBA-ban az értékét, ha megváltoztatják?

• Kija aktív tag

  #2570 2014-12-13 22:41:48

  Új Válasz

  Ú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

  

  Kija

  aktív tag

  Sziasztok!
  Excel VBA-ban írtam egy scriptet ami belép egy FTP szerverre és oda feltölt egy file-t, majd letölt egyet.
  Az átlagsebességeket akarom egy-egy cellába beírni automatikusan az FTP kapcsolat lezárása után.
  Ehhez az FTP munkamenetet egy txt file-ba küldöm és majd azt fogom feldolgozni.
  A gond ott van, hogy az eredményeket tartalmazó szöveges file-ban pont az eredmények adatok elcsúsztak.

  

  Már a helyi könyvtár megadásánál csúszás van. Mi okozhatja?

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