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

• #1196 Dufresne addikt hbbalint #1195

  Új Válasz 2006-05-16 20:47:25 #1196

  Ú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

  

  Dufresne

  addikt

  válasz hbbalint #1195 üzenetére

  Köszi

• #1182 RAM őstag hbbalint #1179

  Új Válasz 2006-05-11 17:14:04 #1182

  Ú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

  

  RAM

  őstag

  válasz hbbalint #1179 üzenetére

  És egymás mellé egyszerre???
  
  
  

• #1181 matekmatika tag hbbalint #1180

  Új Válasz 2006-05-09 09:59:17 #1181

  Ú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

  

  matekmatika

  tag

  válasz hbbalint #1180 üzenetére

  Jah, hogy ezt akarta. Most már értem

• #113 Luxurka tag hbbalint #112

  Új Válasz 2004-07-09 20:50:25 #113

  Ú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

  

  Luxurka

  tag

  válasz hbbalint #112 üzenetére

  Piszok mázlista! Utállak!

• #111 jeges senior tag hbbalint #108

  Új Válasz 2004-07-09 17:55:50 #111

  Ú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

  

  jeges

  senior tag

  válasz hbbalint #108 üzenetére

  igen, accessben létrehozható adattábla importtal is. hasonló, mint az excelnél, csak nincs sorkorlát (legalábbis én nem tudok róla). ha beimportáltad a táblát, már lehet tallózni, szűrni, stb...

• #110 Luxurka tag hbbalint #109

  Új Válasz 2004-07-09 16:56:37 #110

  Ú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

  

  Luxurka

  tag

  válasz hbbalint #109 üzenetére

  jóvanna, akkor hagyom....
  Utálom a függvényeket nem lehet velük virust írni
  
  Sztem access- ba csinálsz egy táblát azt vagy beimportálod, vagy copy paste aztán azt szürsz, amit akarsz, ja és tudod az sql parancsokat is használni!

• #105 Luxurka tag hbbalint #103

  Új Válasz 2004-07-09 00:40:26 #105

  Ú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

  

  Luxurka

  tag

  válasz hbbalint #103 üzenetére

  rakd be access-ba, az legalább látja
  

• #104 hbbalint aktív tag hbbalint #103

  Új Válasz 2004-07-08 20:36:43 #104

  Ú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

  

  hbbalint

  aktív tag

  válasz hbbalint #103 üzenetére

  Működik a php progim, ami mysql táblákba tölti föl a textfileom tartalmát!!!!!!!
  

• #102 Kraptor őstag hbbalint #101

  Új Válasz 2004-07-08 14:26:47 #102

  Ú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

  

  Kraptor

  őstag

  válasz hbbalint #101 üzenetére

  Úgy simán sehogy, mert 65K a limit, de vannak okosságok amivel meglehet kerülni ezeket. Van egy progi amit Microsoft Office Spreadsheet 10.0 UserForm control-nak hívnak és ezzel elvileg létretudsz hozni 18,278 x 262,144-es lapokat.Ezt nem tudom, hogy mennyire igaz vagy nem.
  
  Vagy vannak különböző makrók amikkel megtudsz nyitnyi nagyobb fileokat, csak akkor több lapba fogja megnyitni őket automatikusan.
  
  Sub ImportLargeFile()
  'Imports text file into Excel workbook using ADO.
  'If the number of records exceeds 65536 then it splits it over more than one sheet.
  
  Dim strFilePath As String, strFilename As String, strFullPath As String
  Dim lngCounter As Long
  Dim oConn As Object, oRS As Object, oFSObj As Object
  
  
  'Get a text file name
  strFullPath = Application.GetOpenFilename(''Text Files (*.txt),*.txt'', , ''Please select text file...'')
  
  If strFullPath = ''False'' Then Exit Sub 'User pressed Cancel on the open file dialog
  Application.ScreenUpdating = False
  
  
  'This gives us a full path name e.g. C:\folder\file.txt
  'We need to split this into path and file name
  Set oFSObj = CreateObject(''SCRIPTING.FILESYSTEMOBJECT'')
  
  strFilePath = oFSObj.GetFile(strFullPath).ParentFolder.Path
  strFilename = oFSObj.GetFile(strFullPath).Name
  
  
  'Open an ADO connection to the folder specified
  Set oConn = CreateObject(''ADODB.CONNECTION'')
  oConn.Open ''Provider=Microsoft.Jet.OLEDB.4.0;'' & _
  ''Data Source='' & strFilePath & '';'' & _
  ''Extended Properties=''''text;HDR=Yes;FMT=Delimited''''''
  
  Set oRS = CreateObject(''ADODB.RECORDSET'')
  
  'Now actually open the text file and import into Excel
  oRS.Open ''SELECT * FROM '' & strFilename, oConn, 3, 1, 1
  While Not oRS.EOF
  Sheets.Add
  ActiveSheet.Range(''A1'').CopyFromRecordset oRS, 65536
  Wend
  
  oRS.Close
  oConn.Close
  
  Application.ScreenUpdating = True
  
  
  End Sub
  
  
  Itt egy másik is:
  
  Sub LoadData()
  Const cCol1 = 20, cCol2 = 20, cCol3 = 20, cLimit = 50000
  Dim intFreeFile As Integer, i As Long, j As Long, strTemp As String
  Dim arr() As String
  
  On Error Resume Next
  intFreeFile = FreeFile
  Open ''c:\test.txt'' For Input As #intFreeFile
  i = 0: j = 1
  ReDim arr(cLimit, 2)
  Do Until EOF(intFreeFile)
  Line Input #intFreeFile, strTemp
  arr(i, 0) = Trim(Mid(strTemp, 1, cCol1))
  arr(i, 1) = Trim(Mid(strTemp, cCol1, cCol2))
  arr(i, 2) = Trim(Mid(strTemp, cCol1 + cCol2, cCol3))
  i = i + 1
  If i > cLimit - 1 Then
  Cells(1, j).Resize(cLimit, 3).Value = arr
  i = 0: j = j + 3
  ReDim arr(cLimit, 2)
  End If
  Loop
  Close #intFreeFile
  End Sub
  

• #100 Kraptor őstag hbbalint #99

  Új Válasz 2004-07-08 13:38:34 #100

  Ú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

  

  Kraptor

  őstag

  válasz hbbalint #99 üzenetére

  Nem tudom, hogy hol tettél szert ezekre a tudásaidra, de le a kalapom elötted
  
  Hogy tudom meghálálni?
  
  [Szerkesztve]

• #93 Kraptor őstag hbbalint #92

  Új Válasz 2004-07-07 21:41:01 #93

  Ú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

  

  Kraptor

  őstag

  válasz hbbalint #92 üzenetére

  De durva...ez működik Na már csak azt kell kiügyeskedni, hogy ''vigyem magammal'' a 2. oszlop mögött lévő 4 oszlopot
  
  Nagyon szépen köszi a segítséget

• #91 Kraptor őstag hbbalint #85

  Új Válasz 2004-07-07 20:56:15 #91

  Ú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

  

  Kraptor

  őstag

  válasz hbbalint #85 üzenetére

  CountIF nek mi a magyar megfelelője? Nem ismeri fel az én magyar excelem.

• #88 KovacsUr addikt hbbalint #87

  Új Válasz 2004-07-07 20:36:34 #88

  Ú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

  

  KovacsUr

  addikt

  válasz hbbalint #87 üzenetére

  De még ez sem jó ám, helló Mondom, hogy én is próbálkoztam...
  
  [Szerk.]
  Illetve... tudja a fene. Lehet, hogy mégis jó. Már túl fáradt vagyok, majd a kérdező eldönti. Az is lehet, hogy én értettem félre.

• #86 KovacsUr addikt hbbalint #85

  Új Válasz 2004-07-07 20:25:01 #86

  Ú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

  

  KovacsUr

  addikt

  válasz hbbalint #85 üzenetére

  Én is szöszöltem vele ugyanígy pár órával ezelőtt. Makróval egyszerűbb lesz.

• #84 KovacsUr addikt hbbalint #83

  Új Válasz 2004-07-07 19:51:51 #84

  Ú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

  

  KovacsUr

  addikt

  válasz hbbalint #83 üzenetére

  Csak egy nagyon triviális példa:
  1 1
  2 2
  3 3
  4 4
  4
  4
  5 5
  
  Mindig ugyanez lesz a kimenet, a második osloptól függetlenül.
  Pedig ha a második oszlop tartalma pld. 1, 3, 4, 5, 6, 7, 8 lenne, a kimenetnek
  1 1
  3 3
  4 4
  4
  4
  5 5
  -nek kellene lennie.

• #82 KovacsUr addikt hbbalint #81

  Új Válasz 2004-07-07 19:30:23 #82

  Ú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

  

  KovacsUr

  addikt

  válasz hbbalint #81 üzenetére

  Félreértetted, ez csak a duplikátumokat szűrné. Nekünk az is kell, hogy szinkronban legyen egy másik oszloppal.

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