- Katılım
- 19 Mayıs 2007
- Mesajlar
- 86
- Excel Vers. ve Dili
- tr/2003
Aşağıdaki kodu kullanarak tarihe göre kaydediyorum Dosyayı tanımladığım klasöre kaydetmek istiyorum...kaydetmek sitediğim klasör ve kod aşağıdaki gibi
activeworkbook kısmına kodu yazdım ama uzun tanımlama olduğu için mi error verdi...
(C:\Documents and Settings\AHMET\Belgelerim\ARQUA LİSTE VE STOKLAR\ARQUA LİSTE\Arqua Siparişler)
Private Sub CommandButton2_Click() 'tarihe göre kaydeder
Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy_hh_mm_ss") + ".xls"
ActiveWorkbook.SaveAs sFileName
For i = 1 To 10000
ProgressBar1 = i / 10000 * 100
Next
End Sub
activeworkbook kısmına kodu yazdım ama uzun tanımlama olduğu için mi error verdi...
(C:\Documents and Settings\AHMET\Belgelerim\ARQUA LİSTE VE STOKLAR\ARQUA LİSTE\Arqua Siparişler)
Private Sub CommandButton2_Click() 'tarihe göre kaydeder
Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy_hh_mm_ss") + ".xls"
ActiveWorkbook.SaveAs sFileName
For i = 1 To 10000
ProgressBar1 = i / 10000 * 100
Next
End Sub