|
質問】
FTPサーバにファイルを保存する方法を教えて頂けますでしょうか。
とりあえず、以下を作ってみたのですが、
自PCのCドライブに保存されるだけです。
どこかにFTPサーバのドライブPathを指定するはず、と考えていますが・・・
どうか皆様、お助け下さい。
'ダイアログボックスを表示して保存
Private Sub CommandButton4_Click()
Dim myWB As Workbook
Dim sfileName As String
Dim fileSaveName As String
Set myWB = Workbooks(1)
sfileName = Worksheets("文書").Range("AB3") _
& Worksheets("番号").Range("AC3")
'変数に[名前を付けて保存]ダイアログボックスをファイルの種類を「Excelブック」として参照を代入する
fileSaveName = Application.GetSaveAsFilename("申請書" & sfileName, "Excelブック(*.xls),*.xls")
'保存先とファイル名を設定し、[保存]をクリックすると、ブックが保存される
myWB.SaveAs Filename:=fileSaveName
'ファイルダイアログへの参照を解放する
Set myWB = Nothing
End Sub
|
|