Keresés: - Microsoft Excel topic - LOGOUT Hozzászólások

Hirdetés

Legfrissebb anyagok

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

LOGOUT

A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.

Ú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.