Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: mały problem??
zako




Typ: neutral
Postów: 2
Zarejestrowany: Oct 2004
mały problem??

Witam . Mam problem. Tworzę mały programik który ma za zadanie zczytywać dane o moich pracownikach z bazy Borlanda. Chodzi o godziny przyjścia io wyjścia z pracy. Każdy z pracowników ma kartę z chipem. Tabela w excelu ma służyc do różnorodnego sortowania i podliczania godzin pracy, gdyż program dostarczony z czytnikami kart ma niską funkcjonalność. Do wyboru ma tylko kilka funkcji i raczej służy tylko do podglądu pojedyńczych dni dla pracowników. Poniżej podam co juz wypłodziłem w VBA i opiszę problem.


Sub Wczytywanie_danych()
'
' Wczytywanie_danych Makro
' Makro zarejestrowane 2004-10-05, autor Wojciech Zakrzewski
'
' Klawisz skrótu: Ctrl+r
'
    ChDir "C:\WINDOWS\Pulpit\Czas Pracy"
    Workbooks.OpenDatabase Filename:="C:\WINDOWS\Pulpit\Czas Pracy\200410.DB", _
        CommandText:=Array("200410", CommandType:=xlCmdTable
    Columns("A:F".Select
    Selection.Copy
    Windows("test.xls".Activate
    Sheets("DB Czas".Select
    Range("A1".Select
    ActiveSheet.Paste
    Sheets("Główna".Select
    Workbooks.OpenDatabase Filename:="C:\WINDOWS\Pulpit\Czas Pracy\Pracownicy.DB" _
        , CommandText:=Array("Pracownicy", CommandType:=xlCmdTable
    Columns("A:I".Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("test.xls".Activate
    Sheets("DB Pracownicy".Select
    Range("A1".Select
    ActiveSheet.Paste
    Sheets("Główna".Select
    Windows("Zeszyt2".Activate
    ActiveWindow.Close
    Windows("Zeszyt1".Activate
    ActiveWindow.Close
    ActiveWorkbook.Save
   
    Application.Run "test.xls!Refresh"
   
End Sub


Problem jest natury takiej iż chciałbym rok oraz miesiąc który występuje w poniższej ścieżce :

Workbooks.OpenDatabase Filename:="C:\WINDOWS\Pulpit\Czas Pracy\200410.DB"

zastąpić wynikiem z textBoxa. w powuższym przypadku mamy scieżkę do pliku danych z 10 miesiąca 2004 roku. Jak zrobić aby ścieżka uzupełniała się o wynik z textBoxa. Proszę pisać prosto gdyż jestem początkujący

Dziękuję z góry

zako

p.s. troche uśmieszki zwaliły kod ale najważniejszą część widac

11-10-2004 14:26
Pokaż profil zako  Wyślij email do zako   Odwiedź stronę zako       902102
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Workbooks.OpenDatabase Filename:="C:WINDOWSPulpitCzas Pracy" & UserForm1.TextBox1.Text

[Post edytowany dnia 11-10-2004 18:11 przez Piotr T]


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

11-10-2004 18:11
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
zako




Typ: neutral
Postów: 2
Zarejestrowany: Oct 2004

dziękuję i już sprawdzam

12-10-2004 07:19
Pokaż profil zako  Wyślij email do zako   Odwiedź stronę zako       902102
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1