VBAで画像のアップロードをした時だけ
以前こちらに質問した者ですが
http://oshiete.coneco.net/qa8302218.html
htmlファイルをvbaでFTPでアップロードすることは出来たのですが
画像がうまくアップロードできません。
Sub FTPで送る()
Dim str送信ファイル As String
str送信ファイル = MyDesktop & "\" & strSheetsName '送信ファイル
Set FTP = CreateObject("basp21.FTP")
With Sheets("メイン")
Server = .Cells(.Cells.Find(What:="ホストアドレス", LookAt:=xlWhole).Row, 2)
User = .Cells(.Cells.Find(What:="FC2_ID", LookAt:=xlWhole).Row, 2)
Pass = .Cells(.Cells.Find(What:="FTPパスワード", LookAt:=xlWhole).Row, 2)
End With
Folder = "/" '送信フォルダ
rc = FTP.Connect(Server, User, Pass)
rc = FTP.PutFile(str送信ファイル, Folder)
If rc <> 1 Then
Debug.Print Dir(str送信ファイル) & "を送信できませんでした。"
FTP.Close
Exit Sub
End If
FTP.Close
End Sub
これで、拡張子がhtmlは問題なくアップロードできますが
jpgはアップロードされますが、画像を開けません。
画像が空白になります。
FFFTPでアップロード済みの画像を開いてみようとすると、
「ファイルが破損しているか大きすぎる可能性があります」
となります。
VBAを使わずに手動で同じ画像をFFFTPでアップロードすると
問題なく画像が表示されます。
VBAで画像のアップロードをした時だけ画像が一応アップロードはされますが
表示されません。
なぜでしょうか?
再度ご教授いただければ助かります。
よろしくお願いします。
お礼
有難うございます。 何度かトライして、()が問題であると判断できましたので、()のついているファイル名を全て変更しました。 結果として、これで上手く出来ました。 このカッコは、ビデオから静止画を切り出した時にファイル名が重複するために付けられたものでした。 sonyのソフトですが、もう少し配慮してくれると・・・と思いました。 JPGとjpgの違いの件 アップできないという経験はありませんでしたが、ローカルで閲覧すると問題ないのに、 webで閲覧すると閲覧できないということがあり、原因が分かるまで苦労したことがありました。 そのときは、フリーソフトで一括変換できましたので編集には苦労はしませんでしたが・・。 何が問題か、メッセージで返してくれると良いのに・・・ですね。