• 締切済み

VBAでSPS(WSS)サイトのフォルダへローカルにあるファイルをアップロードしたい

みなさん、初めて質問させていただきます、VB初心者です。 EXCEL/VBAでXMLファイルを作成し、ローカルに保存するところまではできたのですが、そのファイルをSPSのサイトにアップロードしたいのですが、方法がわかりません。教えていただけますでしょうか?よろしく お願いします。XMLファイルはMSInfoPathのデータです。 Sub TEST() ↓ ’EXCELシートのデータをXML形式に文字列変換し変数strXMLに代入 ↓ ’XMLファイル作成 Dim objXML Set objXML = CreateObject("ADODB.Stream") objXML.Open objXML.Charset = "UTF-8" objXML.WriteText strXML objXML.SaveToFile "C:\TEST.XML" objXML.Close ↓ これでCドライブにXMLファイルが作成できて、このファイルをSharePoint Portal Serverのドキュメントライブラリ(InfoPath)に手作業でアップロードすると認識するのでファイルの内容の記述は問題ないと思っております。 で、この後にCドライブのファイルをアップロードするコードをお教え願います。

みんなの回答

回答No.1
stanitani
質問者

お礼

anotherone様、ご回答どうもありがとうございます。 参考にさせていただきました。またよろしくお願いします。

関連するQ&A

  • FC2ブログへのhtmファイルのアップロード

    FC2にてブログを作成しております。 Excelで作成したグラフをアップロードしたいのですが 以下の手順で行ってもうまくいきません。 他の方法をご存知の方がいらっしゃいましたら、ご教授いただきたく存じます。 よろしくお願い申し上げます。 Excelファイルのグラフ部分をWebページ(htm.html)形式にて保存 FC2の管理者メニューの「ツール」-「ファイルのアップロード」より 作成したhtmファイルをアップロード ファイル自体はアップロードできるのですが、表示をしてみると http://blog95.fc2.com/へのリンクが作成され リンクをクリックしてもグラフは表示されません。 ExcelでWebページとして保存した際に、一緒にxmlとgifファイルの入ったフォルダが作成されますが このファイルも一緒にアップロードしないため?と考えているのですが??

  • VB2005 FTPでファイルアップロード

    はじめまして。VB初心者なのですが質問があります。 VB2005でFTPでtxtファイルをアップロードをしたいです。 具体的にはCドライブに入れてある C\test1.txtをレンタルホームページのFTPサーバーにアップロードしたいです。 .NETでのアップロードの仕方はインターネットに情報が割とあるのですが、VB2005だとなかなか出てきません。 どのようなコードを書けばいいのでしょうか?よろしくお願いします。

  • ファイルのアップロード

    お世話になります。 ファイルをbasp21コンポーネントを使用してサーバーにアップロードしたいのですが、ファイルの数とサイズが大きいため、Cドライブでは足りなくなる可能性があり、ネットワーク上のファイルサーバーにアップしようとしたのですが、できませんでした。 ネットワークドライブを割り当ててあり、一応Tドライブとなっているのですが、ネットワーク上ではやはり無理ですよね。外付けのHDDなら、できるでしょうか?

  • ファイルアップロードについて

    複数ファイルのアップロードプログラムを作成する予定です。 HTMLのフォームにINPUTタグ(type:FILE)を複数作成し、その 対象ファイルを一度にアップロードさせたいと思考中です。 CGI(C言語)で複数ファイルを取得して、ファイルを保管する方法 を教えていただけませんでしょうか。 また、標準入力の中身がどのような構成で送られてセットされている のかのしくみもできれば教えてください。 Sampleがあれば大変助かります。 よろしくお願いいたします。

    • 締切済み
    • CGI
  • エクセルのVBAで開いているファイルと同じフォルダのファイルを開きたいとき

    エクセルのVBAで開いているファイルと同じフォルダのファイルを開きたいのですが、どうしても上手くいきません。 いろいろなフォルダやパソコンに移動しても使えるように C:\フォルダ1\TEST.XLS という指定ではなく、「今開いているファイルと同じフォルダから開く」ということはできますか? 上手く説明ができていなくて申し訳ありませんが、 もしよろしければ教えてください。

  • VBAのSHELLを用いてEXEファイルを起動したものの、微妙にうまくいかない

    エクセルのVBAのshellを用いて、exeファイルを起動させてました。 exeファイルはCを用いたシンプルなもので、テキストファイルを作成します。(ソースは下記参照) C:\testのディレクトリにエクセルファイルを作成し、 Shell "C:\test\test.exe" を実行させたところ、ファイルはC:\testのディレクトリに出来ずに、マイドキュメントに出来ました。 このexeファイルを直接ダブルクリックしたときは、C:\testのディレクトリにテキストファイルが作成されます。 ダブルクリックしたときと同じように、C:\testのディレクトリにテキストファイルを作成する方法があれが教えてください。 よろしくおねがいします。 (ソース、hello.txtというファイルをつくり、hello!を書く) main( ) { FILE *fp; /* ファイルポインタ */ fp = fopen( "hello.txt", "w"); fprintf(fp,"hello!\n"); fclose(fp); return 0; }

  • フォルダをアップロードしたいのですが・・・

    フォルダをアップロードして、Webサイトよりダウンロード可能な状態にしたくて、下記の手順を踏んだのですが・・・ ・フォルダを新規作成し(この中にはエクセルファイルが3つ入っています。)、フォルダ名を「b11081915-01」にしました。 ・そのフォルダを+Lhacaを使い、lzh形式で圧縮します。フォルダ名が「b11081915-01.lzh」になりました。 ・FFFTPを立ち上げ、ホスト一覧の中のFTPサイト(サーバーという名前にしてあります)に接続し、ユーザー名とパスワードを入力。  左側にローカル(自分の)コンピュータのフォルダと、右側にFTPサイトのフォルダ情報が出てきました。 ・左側のドライブの中から、圧縮した「b11081915-01.lzh」のフォルダを選択。右側にあるpublic_htmlというフォルダへアップロードしました。 これでちゃんとアップロードがされていればURLは 「http://b11081915-01.officeserver.jp/b11081915-01.lzh」になるわけでして、 確認のためpublic_htmlフォルダの中に「link.html」というhtmlファイルを作成、その中にURLをくっつけてクイックしたんですが・・・。 「HTTP 404 未検出」webページが見つかりません。 と、出てしまいました! ファイルの提出先が提示している通りにやったのに、何故か出来ません。 私の手順は何か間違っているのでしょうか? 分かる方、是非教えてください!!! ※ちなみに、ファイルの提出先に問い合わせたところ、「そういったwebページ作成関連については弊社サポート対象外になります」といって相手にしてもらえませんでした(泣)  しかも、ちゃんとそちら側に送られているか確認もしてくれないそうです。すべて自分で調べて自己解決しろとのことです。  まったく頼りになりません・・・。

  • EXCEL VBAフォルダ配下のファイル削除したい

    お世話になります。 VBAを使って特定フォルダ(C/TEST)配下のファイルを全て一括削除したいのです。 :特定フォルダ=C/TEST やりたいこと EXCELシートに[削除]というボタンを配置してクリックしたらC/TEST配下のファイルを全て 削除するロジックをどなたかご教授いただけますでしょうか? C/TEST配下にファイルがない場合は[削除対象ファイルは存在しません]というメッセージを出して処理を終えたいです。 よろしくお願い致します。 EXCEL2013

  • Strutsでファイルアップロード

    Strutsでファイルアップロードするさい struts-config.xmlに <controller bufferSize="4096" maxFileSize="10K" tempDir="c:/temp" /> と記述している場合実際にMaxを超えた場合はどのような動作になるのですか? 諸所の事情で試せない環境になっておりますのでお願いします。

    • ベストアンサー
    • Java
  • 【vba】もしフォルダがなければ作成したい

    Sub test() If Dir("C:\バックアップ\" & Date$) <> "" Then 'ファイルがないなら作成 MkDir "C:\バックアップ\" & Date$ End If End Sub このコードを実行しても ファイルがあってもなくても作成されないのですが 何がおかしいのでしょうか?

専門家に質問してみよう