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

• Apollo17hu őstag

  #251

  #249 lapa

  2005-07-25 01:27:53

  Ú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

  

  Apollo17hu

  őstag

  #249 lapa

  #249 lapa

   

  OpenDialog_Filter = ''Szöveges fájlok (*.txt), *.txt''
  OpenDialog_Caption = ''Válassza ki a feldolgozni kívánt fájlt''
  OpenDialog_SelectedFile = _
    Application.GetOpenFilename(OpenDialog_Filter, , OpenDialog_Caption)
  
  ...
  
  Workbooks.OpenText Filename:=OpenDialog_SelectedFile

  
  
  ez mondjuk txt-t nyit. vagy valami másra gondoltál?
  
  

  Sajnos ez nálam hibaüzenetet generál.
  Olyasmire gondoltam, hogy egy - a felhasználó által kiválasztott - Excel munkafüzet megnyitása után egy gomb megnyomásával pl. megvizsgáljuk, hogy az A1 cella értéke egyezik-e a B1 cella értékével. Persze az én makróm ennél azért összetettebb, de ez elég egyszerű lenne.
  
  Tehát van egy Commandbuttonom, amire ha rákattintok, ez történik:
  
  

  Private Sub CommandButton1_Click()
  If Cells(1, 1) = Cells(1, 2) Then
  MsgBox ''Az A1-es és B1-es cellák tartalma egyezik.''
  Else
  MsgBox ''Az A1-es és B1-es cellák tartalma nem egyezik.''
  End If
  End Sub

  
  
  Na, és azt lenne jó megcsinálni, hogy ne kelljen a felhasználónak külön Sajátgépben/Intézőben keresni a munkafüzetet, majd onnan megnyitva Excelben futtatni a makrót, hanem lenne egy exe-program, amin lenne egy ''Megnyitás'' gomb és egy másik gomb, ami a megnyitott Excel munkafüzet aktuális munkalapján futtatná le mondjuk a fenti A1 - B1 összehasonlítást.
  
  A könyv, amit olvastam, ezt a kódot írja a ''Megnyitás'' gombra:
  
  

  Private Sub Command1_Click()
  CommonDialog1.ShowOpen
  End Sub

  
  
  Viszont itt a program formjára nemcsak a ''Megnyitás'' gombot, hanem egy CommonDialog-ot is el kell helyezni, ugyanezzel a kóddal. Így a ''Megnyitás'' gombra kattintva előugrik egy új ablak, ahonnan ki lehet választani a megnyitandó fájlt. Csak az a gondom, hogy a fájlok nem nyílnak meg. Ide kéne még vmi parancs, csak erről már nem ír a könyv.

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