Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19691 / 76732

←次へ　｜　前へ→


	【62469】FTPサーバにファイルを保存する方法

T-K - 09/7/23(木) 11:53 -


	引用なし

	パスワード

質問】
FTPサーバにファイルを保存する方法を教えて頂けますでしょうか。
とりあえず、以下を作ってみたのですが、
自ＰＣのＣドライブに保存されるだけです。
どこかに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

90 hits

▼

【62469】FTPサーバにファイルを保存する方法 T-K 09/7/23(木) 11:53

≪