Temat: Szukam progmau do importowania i sortowania danych

Czesc,

Poszukiwałbym programu do sortowania danych (ściślej do sortowania ofert pracy)

Chodzi o to żeby program importował dane ze źródła danych (Np. ze skopiowanych ofert w Excelu/Wordzie czy bezpośrednio ze stron internetowych) a następnie wklejał poszczególne dane z ofert pracy do specjalnie stworzonych pól w bazie danych Np.

Przykładowe ogłoszenie:

Praca
Urzędnik bla bla bla
Lokacja
Warszawa

Godziny
45 tygodniowo

It dalsza czesc ogloszenia ….

Teraz chciałbym zebry program automatycznie kopiował rożne dane z ogłoszeń do bazy danych żeby potem można byłoby je posortować.

SA jakieś specjalne programy do tego typu rzeczy, albo czy jest możliwe zrobienie to za pomocą Excela i Accessa, na tej zasadzie ze wklejam ogłoszenia do Excela, zapisuje plik. Access wykrywa zmianie w dokumencie i zabiera się za kopiowanie poszczególnych danych do określonych Pol w bazie danych. Trzeba by było ustalić, z których linijek w, Excelu , jakie informacje maja być skopiowana, do jakich Pol w bazie danych.

Temat: Szukam progmau do importowania i sortowania danych

Na stronie
http://www.exceltip.com/st/Export_data_from_Excel_to_A...
znalazłam bardzo fajny kawałek kodu...

Pozwala exportować dane z Excela do Accessa. Ma sporo wad, jest napisany dość sztywno. Importuje cały plik do tabeli w bazie.
Konieczne jest dołączenie bibliotek (Tools>References):
- Microsoft DAO 3.6 Object Library (lub podobna)
- Microsoft ADO Ext. 2.8 for DDL and Security (lub podobna)
Te dwie mi wystarczyły.

Wady:
- trzeba na sztywno wpisać kolumny
- może nie wada, ale potencjalne zagrożenie: makro działa dopóki w kolumnie A nie napotka na pustą komórkę, wtedy przerywa kopiowanie

Zalety:
- o dziwo, działa naprawdę szybko!
- kod prosty "w obsłudze"

Kod na pewno nie do końca spełnia Twoje oczekiwania, a jeśli już to tylko częściowo, ale może warto go przerobić według potrzeb...

----------------------------

Sub DAOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use

Dim db As Database, rs As Recordset, r As Long

Set db = OpenDatabase("C:\BAZA.mdb")
' open the database
Set rs = db.OpenRecordset("TABELA_W_BAZIE", dbOpenTable)
' get all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("NAZWA I KOLUMNY W BAZIE") = Range("A" & r).Value
.Fields("NAZWA II KOLUMNY W BAZIE") = Range("B" & r).Value
.Fields("NAZWA III KOLUMNY W BAZIE") = Range("C" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Temat: Szukam progmau do importowania i sortowania danych

Z wklejaniem danych do tabel nie ma żadnego problemu, podobnie jak z importem danych z różnych źródeł do siebie nawzajem. Problem polega tylko na tym, że jeśli będziesz miał różne źródła danych to zarżniesz się na parsowaniu treści dokumentów. Jeśli takich źródeł będzie kilka to możesz pokusić się o napisanie kilku różnych procedur. Jeśli będzie kilkanaście to będziesz musiał napisać kilkanaście, to kupa nudnej roboty. Można oczywiście napisać jakiś parser, który będzie czytał dowolny dokument ale to już jest hard coding i na dodatek narażony na wysoki odsetek błędów.