2016-04-01 15 views
1

Belirli bir sayfayı paylaşılan bir sürücüye parola korumalı dosya olarak kaydetmek için bir eylem düğmesi için aşağıdaki makroyu Excel2010'da yazdım. Parola korumalı dosyayı kaydetmek için makro

Private Sub Report_Click() 

Sheets("sheetname").SaveAs Filename:="\\shared_folder_path\master" & Sheets("sheetname").Range("A2"), _ 
          FileFormat:=52, _ 
          Password:="password", _ 
          WriteResPassword:="password", _ 
          ReadOnlyRecommended:=False, _ 
          CreateBackup:=False 

End Sub 

sorun

Bir Çalışma zamanı hatası '1004'

+0

Neden Range ("A2") 'de neyin bulunduğunu bilmek önemli olmayacağını anlayamıyorum. Bunun bir tarih olduğunu tahmin ediyorum ve bir eğik çizgide yasadışı olan veya hedef klasör yapısını karıştırıcı olan eğik çizgi gibi karakterler içeriyor. A2'de bir tarihiniz varsa ve bir dosya adının bir parçası olarak kullanılabilmesi için hücreyi biçimlendirdiyseniz, o zaman '.Range (" A2 ") kullanın. Tabii ki durum buysa, büyük bir hata mesajı göreceksiniz (http://i.stack.imgur.com/vBN8f.png). – Jeeped

cevap

0

Ben senin FileName yolu ile ilgili bir şey olduğuna inanıyorum elde edilmesi.

Test ettim ve bu bağlantıyı masaüstüme kullandım ve iyi kaydedildi. Yolu, masaüstünüze giden bir yolla değiştirerek aynı testi deneyin.

Bilgisayarınızın kullandığı sürücü harfini muhtemelen ağ klasörü yoluna eklemeniz gerekecektir.

aynı kodu sunmanın bir temizleyici yolu da temel bir örneğin bu How to programmatically save a file to a network drive in Excel de bakabilirsiniz

Private Sub Report_Click() 
     Sheets("Sheet1").SaveAs _ 
      Filename:="C:\Users\user1\Desktop\" & Sheets("Sheet1").Range("A2"), _ 
      FileFormat:=52, _ 
      Password:="password", _ 
      WriteResPassword:="password", _ 
      ReadOnlyRecommended:=False, _ 
      CreateBackup:=False 
End Sub 

ile altındadır.

+0

Gerçekten de yol ile ilgili bir sorun vardı: A2 hücresinde a: yolu geçersiz kıldı. Çıkarma: sorunu çözdü. –

İlgili konular