2017-02-16 15 views
0
  • GetSaveAsFileNameはのURLをに、
  • SaveCopyAsはUNCパスを取得します。
  • ファイルは保存されません。
  • prozessは警告を表示しません。
  • SharePointアクセスはマップされたドライブではありません。 ライブラリとしてマウントされています。
  • ユーザーは他のsharepoint mappeを選択できるので、一定のパスは使用できません。

これは私のコードです:VBAパス、GetSaveAsFileNameはUNCでURL/SaveCopyAsを使用します。

'Test: Is the file exists? 

Dim CW_ExportFilePathAndName As String 
CW_ExportFilePathAndName = FilePathForSave & CW_NameSaveFile 
If Dir(CW_ExportFilePathAndName) <> "" Then 
    Dim InitialName As String 
    Dim sFileSaveName As Variant 
    InitialName = CW_ExportFilePathAndName 
    sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsm), *.xlsm") 
     If sFileSaveName <> False Then 
      ActiveWorkbook.SaveCopyAs sFileSaveName 
      MsgBox "The source file is saved on an individual name!" 
     Else 
      MsgBox "The source file is not saved!" 
     End If 
Else 
    ActiveWorkbook.SaveCopyAs CW_ExportFilePathAndName 
End If  
+4

作業しているコードを教えていただけますか?あなたが具体的に何をしているのか、そして何が悪いのか分からないときは、助けが困難です。また、これらのプロンプトをどのように取得していますか?ユーザーにプロンプ​​トを表示していますか? –

+0

'CW_ExportFilePathAndName = FilePathForSave&CW_NameSaveFile'これはあなたにURLを与えるものですが、あなたのコードは' FilePathForSave'と 'CW_NameSaveFile'の作成方法を示していません –

+0

こんにちは、私のコードを添付しました!私はmsgboxでパスをテストしました。私のパス: "\\ [email protected] \ RaWrote \ sites \ DKO \ aaa.xls"戻り値: "https:/ecs.tel.de/sites/DKO/aaa1.xls./"もし私があなたの2番目の質問をよく理解してください。いいえ、私はありません。私はそれについての情報を持っています。ありがとうございました! 안녕、Z – ZolGal

答えて

0

は回避策:名前を付けて保存はURLで作業することができます。再開だけが解決されなければならない!

関連する問題