napisał: tashemik postów: 35
umieszczony: 18 czerwca 2005 23:09
|
|
Znam prostrzy sposób:
Sub Zapisz()
gdzie = "c:\"
nazwa = Year(Now) & "-" & Month(Now) & "-" & Day(Now) & ".xls"
ActiveWorkbook.SaveAs Filename:= _
gdzie & nazwa, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Chyba wygodniejsze:D
Pozdro tashemik |
|
napisał: r_c postów: 38
umieszczony: 20 maja 2005 22:15
|
|
w załączeniu kod VBA, który prawdopodobnie wymaga drobnych korekt
dla indywidualnego użytkownika. Z braku czasu podaję go w formie w jakiej ja korzystam.
Sub Zapisz_Plik()
Dim dzień As String, miesiąc As String
Dim m_plik As String, m_katalog As String, m_ścieżka As String
Dim komunikat As String
Dim rok As Integer
Dim msg as String, atrybut as String, komunikat1 As String
dzień = Day(Date)
If Len(dzień) = 1 Then dzień = 0 & dzień
miesiąc = Month(Date)
If Len(miesiąc) = 1 Then miesiąc = 0 & miesiąc
rok = Year(Date)
komunikat = "Plik " & m_plik & " istnieje w podanej lokalizacji ." _
& vbCrLf & "Czy chcesz sprawdzić atrybuty pliku ?"
m_plik = dzień & "_" & miesiąc & "_" & rok & ".xls"
m_katalog = miesiąc & "_" & UCase(MonthName(CDate(miesiąc)))
m_ścieżka = "C:\Pliki_Excela\" & m_katalog & "\"
MsgBox "Nazwa pliku : " & m_plik & vbCrLf & vbCrLf _
& "Nazwa katalogu : " & m_katalog & vbCrLf & vbCrLf _
& "Ścieżka : " & m_ścieżka, _
vbInformation, "Inforamacja o pliku, katalogu i ścieżce"
On Error GoTo BŁĄD
MkDir "C:\PLIKI_EXCELA\"
MkDir "C:\PLIKI_EXCELA\" & m_katalog
If Dir(m_ścieżka & m_plik, vbHidden) <> "" Then
msg = MsgBox(komunikat, vbYesNo, "PLIK " & m_plik)
If msg = vbYes Then
atrybut = GetAttr(m_ścieżka & m_plik)
komunikat1 = "Plik " & m_plik & " posiada atrybut(y) : "
If atrybut And vbReadOnly Then komunikat1 = komunikat1 & " TYLKO DO ODCZYTU (R)"
If atrybut And vbHidden Then komunikat1 = komunikat1 & " UKRYTY (H)"
If atrybut And vbSystem Then komunikat1 = komunikat1 & " SYSTEMOWY (S)"
If atrybut And vbArchive Then komunikat1 = komunikat1 & " GOTOWY DO ARCHIWIZACJI (A)"
MsgBox komunikat1, vbInformation, "PLIK " & m_plik
Exit Sub
End If
ElseIf Dir(m_ścieżka & m_plik) = "" Then
ActiveWorkbook.SaveAs m_ścieżka & m_plik _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
BŁĄD:
If Err = "75" Then Resume Next
If Err = "76" Then
MsgBox "Niepowodzenie: brak zadeklarowanego dysku!", vbCritical, "Błąd"
Exit Sub
End If
End Sub |
|
napisał: admin postów: 613
umieszczony: 15 maja 2005 08:51
|
|
Cytat: [...] data ma format rrr-mm-dd a windows niechce mi zrobic pliku ze znakiem "-"
[...]
Niemożliwe, musisz gdzieś indziej robić błąd... |
|
napisał: mirk postów: 5
umieszczony: 14 maja 2005 21:14
|
|
Witam
od jakiegos czasu sobie pisalem male makro w excelu ktore powinno umilic prace kilku osobom, no i na koncu mam wielki problem:
Jesli wie ktos jak w excelu stworzyc plik ktorego nazwa to aktualna data to prosze o info wiem jak utworzyc plik ale data ma format rrr-mm-dd a windows niechce mi zrobic pliku ze znakiem "-"
z gory dzieki i pozdrawiam wszystkich |
|
wstecz 1 dalej wszystkich stron: 1
|