お奨め本の目次を見るだけでも勉強になったり
＜固定処理を見直してみませんか？＞
どうも、三流プログラマーのＫｅｎ３です。 こんにちは、三流プログラマーのＫｅｎ３です。 今回は、私がやっと気が付いたことを書きたいと思います。/* * １. 今日の狙い・・・ */
私がやっと気が付いたこと？ ^^^^^^^^^^^^^^^^^^^^^^^^^^ どんなこと？ くだらないことでしょ・・・と話を引っぱって置いて、/* * ２．値を受け取り、処理を行う、そんな作りにする */
私が、関数作りヘタだなぁと自分で思ったことがあって、 少し前のメルマガで、ftp.exeを使用して、サーバーにファイルを書き込む、 そんな処理を作ってました。
Sub test()
Dim strPNAME As String 'パラメーターファイル名
Dim nFNO As Integer 'ファイル番号
strPNAME = ThisWorkbook.Path & "\ftptest.txt" 'ファイル名作成
nFNO = FreeFile '空いてるファイル番号を取る
Open strPNAME For Output As #nFNO 'ファイルを新規作成
'データ書き込み
Print #nFNO, "open plaza14.mbn.or.jp" 'openホスト名
Print #nFNO, "user ken3 XXXXXX←パス" 'userコマンド ユーザー名 パスワード
Print #nFNO, "cd www"
Print #nFNO, "pwd"
Print #nFNO, "get index.html " & ThisWorkbook.Path & "\index.html"
Close #nFNO '開いたら閉じようね
'shellでＦＴＰを起動 -nのオプションを付ける
Shell "ftp -n -s:" & strPNAME
End Sub |
Sub ftp_upfile(strHNAME As String, _
strUSERNAME As String, _
strPASS As String, _
strDIR As String, _
strUPFILE As String)
End Sub |
Sub TEST()
Dim strFILENAME As String 'ファイル名受け取り用
'ファイル名を選択する
strFILENAME = Application.GetOpenFilename
'プログラムの中にパスワード埋め込むのよくないけど
'作った関数をコールする
Call ftp_upfile("ftp.xxxx.jp", "username", "pass", "data/pc/", strFILENAME)
End Sub |
Sub TEST()
Const strHOST = "ftp.xxxx.jp"
Const strUSER = "username"
Const strPASS = "pass"
Const strUPDIR = "data/001/"
Dim strFILENAME As String 'ファイル名受け取り用
'ファイル名を選択する
strFILENAME = Application.GetOpenFilename
'作った関数をコールする
Call ftp_upfile(strHOST, strUSER, strPASS, strUPDIR, strFILENAME)
End Sub |
Sub ftp_upfile(strHNAME As String, _
strUSERNAME As String, _
strPASS As String, _
strDIR As String, _
strUPFILE As String)
Dim strPNAME As String 'パラメーターファイル名
Dim nFNO As Integer 'ファイル番号
'パラメータファイル名をブック位置\ftppara.datとする
strPNAME = ThisWorkbook.Path & "\ftppara.dat" 'ファイル名作成
'ファイルを新規作成する
nFNO = FreeFile '空いてるファイル番号を取る
Open strPNAME For Output As #nFNO 'ファイルを新規作成
'コマンドデータを書き込む
Print #nFNO, "open " & strHNAME 'open ホスト名
Print #nFNO, "user " & strUSERNAME & " " & strPASS 'user ユーザー名 パスワード
Print #nFNO, "cd " & strDIR 'cd xxxx 書き込みディレクトリへ移動
Print #nFNO, "put " & strUPFILE 'put ファイル名 で、ファイルをアップする
Print #nFNO, "quit" 'bay で コマンド終了
'ファイルを閉じる(作成が終了したので)
Close #nFNO '開いたら閉じようね
'shellでＦＴＰを起動 -n,-s:ファイル名 のオプションを付ける
Shell "ftp -n -s:" & strPNAME
End Sub |
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |