「みんな教えて! 選手権!!」開催のお知らせ

詳しい人求む！

ieを使わずにサーバーとのやり取りを実現したい

解決済

  • 質問者：nagahaha
  • 質問日時：
  • 回答数：5件

今、「ieを使わずに」という観点で勉強しています。
色々試して、上手く機能するようであれば、切り替えようかなと思っています。

大きく現行の説明ですが、
１．あるサイトから基になるデータを取り込み、
２．そこに個人的なデータを加味して目的物を作成します。
３．そしてそれを個人的なサーバ（プロバイダからのレンタル）にアップし、、
４．関係者で参照する。

この構想の引き金は（未だ大丈夫らしいのですが）ieがなくなる、
というものです。

現在、１．データの取り込みがなんとか出来たので、
２．目的物の作成まで完了しています。
ということで、これから３．サーバーにアップの開発になります。
サーバーにアップできれば、４．その後の参照は１．と同じなので出来るかなと。
(厳密には４．でアップするのは「html」ではなく、データです。)

前段が長くなりましたが、
３．に関して、ieを使わず解決できるexcelvbaでの手法を知りたいのです。
（現在のステップは最後に貼っておきます）

条件の一つに、excel2003しか使えない、いうのがつきます。
危ない等は重々承知です。
宜しくお願いします。


*************** 現在のステップです
＜アップ側＞
lngInet = InternetOpenS(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lngInet <> 0 Then
'MsgBox "opennd"
lngFTP = InternetConnectS(lngInet, Server, _
INTERNET_DEFAULT_FTP_PORT, _
UserName, Password, _
INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0&)
If lngFTP <> 0 Then
'MsgBox "conected"
FtpSetCurrentDirectoryS lngFTP, strDir
abytFrom = StrConv((strFrom & vbNullChar), vbFromUnicode)
abytTo = StrConv((strTo & vbNullChar), vbFromUnicode)
lngRet = FtpPutFileB(lngFTP, abytFrom(0), abytTo(0), _
FTP_TRANSFER_TYPE_ASCII, 0&)
If lngRet <> 0 Then
'MsgBox "ファイルのアップロードに成功しました！", vbOKOnly + vbInformation
End If
End If
InternetCloseHandle lngInet
End If

＜参照側＞
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "http://abc.jp" & trgtname & ".log"
Call IEWait(objIE)
'Range("E10").Value = objIE.document.body.innerHTML

質問者からの補足コメント

  • コレだと思います。宜しくお願いします。
    文字数がオーバーするとのことなので、分けさせていただきます。
    Option Explicit
    Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    No.5の回答に寄せられた補足コメントです。 補足日時：2024/11/21 19:47
    通報する

  • Private Declare Function InternetOpenS _
    Lib "WinInet.DLL" Alias "InternetOpenA" _
    (ByVal lpszAgent As String, ByVal dwAccessType As Long, _
    ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, _
    ByVal dwFlags As Long) As Long

      補足日時：2024/11/21 19:50
    通報する

  • Private Declare Function InternetConnectS Lib _
    "WinInet.DLL" Alias "InternetConnectA" _
    (ByVal hInternetSession As Long, ByVal lpszServerName As String, _
    ByVal nServerPort As Integer, ByVal lpszUsername As String, _
    ByVal lpszPassword As String, ByVal dwService As Long, _
    ByVal dwFlags As Long, ByVal dwContext As Long) As Longg

      補足日時：2024/11/21 19:52
    通報する

  • Public Declare Function FtpSetCurrentDirectoryS _
    Lib "WinInet.DLL" Alias "FtpSetCurrentDirectoryA" _
    (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Long

      補足日時：2024/11/21 19:54
    通報する

  • Private Declare Function FtpPutFileB _
    Lib "WinInet.DLL" Alias "FtpPutFileA" _
    (ByVal hFtpSession As Long, ByRef lpszLocalFile As Byte, _
    ByRef lpszNewRemoteFile As Byte, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long

      補足日時：2024/11/21 19:55
    通報する

  • Public Declare Function FtpGetFileS _
    Lib "WinInet.DLL" Alias "FtpGetFileA" _
    (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, ByVal fFailIfExists As Long, _
    ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long

      補足日時：2024/11/21 19:56
    通報する

  • Private Declare Function InternetCloseHandle _
    Lib "WinInet.DLL" _
    (ByVal hInet As Long) As Long

      補足日時：2024/11/21 19:57
    通報する

  • Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
    Private Const INTERNET_DEFAULT_FTP_PORT = 21
    Private Const INTERNET_SERVICE_FTP = 1&
    Private Const INTERNET_FLAG_PASSIVE = &H8000000
    Private Const FTP_TRANSFER_TYPE_ASCII = &H1
    Private Const FTP_TRANSFER_TYPE_BINARY = &H2
    Private Const FILE_ATTRIBUTE_NORMAL = &H80

      補足日時：2024/11/21 19:58
    通報する

  • 以上、宜しくお願いします。

      補足日時：2024/11/21 19:59
    通報する
通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (5件)

No.5ベストアンサー

  • 回答者： fujillin
  • 回答日時：

こんにちは



＞３．に関して、ieを使わず解決できるexcelvbaでの手法を知りたいのです

＞＜アップ側＞
にご提示のコードには、APIの参照宣言等がまるっきり抜け落ちているし、変数等の宣言（＝設定）も無いように思われますが・・？？
ですので、ハッキリとはしませんけれど、ご提示の範囲に関する限りではIEとは無関係です。
現状でも機能しているようですので、宣言対象のDLL等がちゃんと存在すれば動作するでしょう。
（省略している部分に、IE依存の内容がある場合は別です）

＞＜参照側＞
のコードはもろにIE依存ですけれど、こちらはご質問には関係ないものと解釈しました。
この回答への補足あり
    • good
    • 0
    • 件
通報する
この回答へのお礼

早速ありがとうございました。
＞APIの参照宣言等がまるっきり抜け落ちているし
わからないので、ここかなという部分を上げました。
別途、補足で挙げさせていただきます。
それを見ていただき、ieに依存していないのであれば、
言われるように現状機能しているのでこのままで良さそうですネ。
恐縮ですが、それを見て可否を頂けるとありがたいです。
参照側はなんとかなりそうと思っています。
（全く自信はありませんが）
宜しくお願いします。

通報する
お礼日時：2024/11/21 19:42

No.4

IE無しでのFTPアップロードなら、WinINet APIを使用してFTPファイルのアップロードが可能です。



Webページの取得も、MSXML2.XMLHTTPを使ってHTTPリクエストを送り、WebページのHTMLを取得。HTMLレスポンスを取得し、Excelセルに表示しましょう。
    • good
    • 0
    • 件
通報する
この回答へのお礼

excel2003を前提にしています。

通報する
お礼日時：2024/11/21 19:33

No.3

  • 回答者： hnks192059
  • 回答日時：

Microsoftの情報によるとEdgeでのIEモード利用自体は2029年まで残るように見えますのであせらずじっくりやっていきまし

ょう
    • good
    • 0
    • 件
通報する
この回答へのお礼

そうなんです。
そして、ieモードもなんとか未だ使えそうなのですが、
いい機会なので、やってみようかなと思っています。

通報する
お礼日時：2024/11/21 19:32

No.2

  • 回答者： hnks192059
  • 回答日時：

「参照側」のコードについて、


これはIEだから実施できた制御ですね。IE以外のブラウザでは似たことは実施できません。
サーバにアップしたログファイルをブラウザで参照する制御を既存の方法以外で全く新しく設計する必要があると思います
    • good
    • 0
    • 件
通報する
この回答へのお礼

なかなか難しいですが、
勉強しながらやっています。

通報する
お礼日時：2024/11/21 19:31

No.1

  • 回答者： hnks192059
  • 回答日時：

「アップ側」のコードについて、FTPでファイルをアップロードしているんですね


ExcelVBAで似たことを実施するのであれば下記サイトをご参照ください

https://excel-vba.work/2021/11/22/vbaftp%E3%81%A …
    • good
    • 0
    • 件
通報する
この回答へのお礼

早速ありがとうございました。
ある人から引き継いだexcelです。
今回勉強して使いこなそうとしてうぃます。

通報する
お礼日時：2024/11/21 19:29

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

ページトップページトップ

おすすめ情報

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報