• ベストアンサー

ＶＢ6　SP5、実行時エラー75について

いつもお世話になります。 　tempPath = App.Path If Right(tempPath, 1) <> "\" Then tempPath = tempPath & "\" End If free1 = FreeFile Open tempPath & "prev.html" For Output As #free1 Print #free1,abcd Close #free1 Form2.Visible = True Form2.WebBrowser1.Navigate2 tempPath & "prev.html" abcdの中身をprev.htmlにいったん保存。 　　　　　　　　↓ そのprev.htmlをフォーム2にて、ウエブブラウザーで開く時にエラーが出ます。 　　　 「実行時エラー75　パス名が無効です。」 WIN XP,2000,MEでは出来ます。 98の時だけ出るんです。 心当たりがある方お願いします。半日格闘ですＴ_Ｔ；

  • a12b12
  • お礼率51% (152/297)

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

こんにちは。 XPのVB6でも、98SEのVB6でも、問題なく動きました。 abcdの中身が何なのか判りませんので、 abcd = "aaaaaaaaaaaaa"　　'--- (1)追加 tempPath = App.Path If Right(tempPath, 1) <> "\" Then tempPath = tempPath & "\" End If free1 = FreeFile Open tempPath & "prev.html" For Output As #free1 Print #free1, abcd, tempPath　　'--- (2)変更 Close #free1 '--- (3) Form2.Visible = True Form2.WebBrowser1.Navigate2 tempPath & "prev.html" と(1)１行の追加と(2)１行の変更でテストしました。 tempPathの中身も問題なかったですね。 (3)のところで何かしていませんか？ 例えば、tempPathを壊しているようなステップはありませんか？

その他の回答 (1)

  • taka_tetsu
  • ベストアンサー率65% (1020/1553)
回答No.1

tempPath に、スペースが入ってたりしませんか？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VB6 実行時エラー -2(fffffffe)

    VB6で作成したAPでエラーで出て困っております。 調べても解決策が見つからず、皆様のお力をお借りしたいと思います。 【環境】 Windows XP SP3 microsoft visual studio 6.0 sp6 【現象】 webbrowserコントロールを利用し、GIFファイルの表示を行う処理で以下のエラーが発生。 実行時エラー '-2(fffffffe)': オートメーション エラーです 【ソース】 Private GifLoad As Boolean -------------------------------------------------------------------------------- Private Sub GifFileLoad() 　　Dim Hstyl As HTMLStyle 　　Dim GifName As String 　　GifName = Gifファイルのフルパス 　　WebBrowser.Navigate GifName 　　GifLoad = False 　　'表示を読み込むまで待機 　　Do 　　　　　DoEvents←ここでエラーが発生 　　Loop Until GifLoad 　　Set Hstyl = WebBrowser.Document.Body.Style 　　With Hstyl 　　　　　.OverFlow = "hidden" 　 　　　　.MarginLeft = "0px" 　　　　　.MarginTop = "0px" 　　End With 　　Set Hstyl = Nothing End Sub -------------------------------------------------------------------------------- Private Sub WebBrowser_DocumentComplet(ByVal pDisp As Object,URL As Variant) 　　GifLoad = True End Sub -------------------------------------------------------------------------------- エラー発生後、メッセージのデバッグボタンでデバッグモードに移行すると、問題なくDoEventsを通り抜けます。単純にResume Naxtを追記したらいいだけのような気もするのですが、エラーの内容、原因が特定できず悩んでいます。 この事象に対して情報をお持ちの方がおられましたら、ご教授お願いいたします。

  • 実行時エラー

    先日はご回答いただきありがとうございました。 ご回答いただいた構文を採用してテストしてみましたところ、特定の操作時にエラーが発生してしまいました。 発生条件：「管理」部署のユーザー・シート3人と「総務」部署のユーザー・シート2人を用意 　　　　　「管理」の管理職でログインしたあと、「総務」の管理職でログインを試みるとエラーが発生 発生エラー：実行時エラー'1004' 'Visible' メソッドは失敗しました: '_Worksheet' オブジェクト エラー発生箇所：ws.Visible = False（下から4行目） お手すきの時で構いませんので、宜しければご回答お願いいたします。 ElseIf isManage Then '管理職なら Dim i As Integer For i = 1 To login.Cells(Rows.Count, eColIndex.depcode).End(xlUp).Row On Error Resume Next 'エラートラップ開始 Set ws = Sheets(login.Cells(i, eColIndex.name).Value) 'Sheets("氏名") On Error GoTo 0 'エラートラップ終了 If login.Cells(i, eColIndex.depcode).Value = depcode Then If ws Is Nothing Then 'シートが無いなら MsgBox "ユーザーシートがありません", vbExclamation, "警告" Application.Visible = True 'ブックを表示 End End If ws.Visible = True 'ユーザーのシート表示 Set ws = Nothing ElseIf Not ws Is Nothing Then ws.Visible = False Set ws = Nothing End If Next

  • VB2005でWebBrowserでログイン

    今まで、ExcelのVBAを手探り状態で使い、IEを操作していたものです宜しくお願い致します。今回、VB2005EEをインストールしたので、Excelで行っていた作業を移行させようと思ってネットでサンプルを手にいれ使おうかと考え行き詰りました。どなたか教えてください。 formにWebBrowserコントロールを貼り付けてネットのログイン画面を With WebBrowser1 .Navigate("http://xxxx.xxx.co.jp/xxx/mail?roginname=abcd123") .Document.All.GetElementsByName("acctname")(0).InnerText = "abcd123" .Document.All.GetElementsByName("passwd")(0).InnerText = "1234567" .Document.Forms(0).InvokeMember("submit") End With としたところ、.Documentの行で、オブジェクト参照がオブジェクト インスタンスに設定されていません。のエラーが出てしまいます。 ヒントには、オブジェクトインスタンスの作成には、newキーワードを使用します。と、メソッドを呼び出す前に、オブジェクトがnullでよいかどうか確認してくださいとあます。 私は、いったいどうすればいいのでしょうか？基本的な部分が分かっていないだけだと思いますが、教えて頂けないでしょうか？

  • 実行時エラー　2147023179

    win7、エクセル２０１０でＩＥ操作をしてるのですが どうやらローカルのページ （objIE.Navigate "C:\Users\B\Desktop\a.html"） を表示すると、 Do While objIE.Busy = True の部分で、 実行時エラー　2147023179 オートメーションエラーです。 そのインターフェイスは認識されません。 となります。 しかし、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://login.yahoo.co.jp/config/login?logout=1" 'ログアウトする Do While objIE.Busy = True DoEvents Loop Set objIE = Nothing End Sub このようにネット上のページを表示すると問題なく動きます。 ローカルのページではダメなのでしょうか？

  • ExcelVBAで実行時エラーが出ます

    このようなマクロを作りました。 Sub WriteCsv() Dim myTxtFile As String, myFNo As Integer Dim myLastRow As Long, i As Long Dim j As Long Dim aaa As Worksheet Set aaa = ActiveSheet Application.ScreenUpdating = False j = 0 myTxtFile = ActiveWorkbook.Path & "\Adress List.txt" Worksheets("List").Activate myLastRow = Range("A4").End(xlDown).Row myFNo = FreeFile Open myTxtFile For Output As #myFNo　－－－－－※ For i = 4 To myLastRow If Cells(i, 3) = 1 Then Write #myFNo, Cells(i, 5) j = j + 1 End If Next Close #myFNo 　　・・・・ 　　・・・・ このExcelをフォルダーから実行するとすると、※で[ランタイムエラー５２]が発生しますが、デスクトップから実行すると出ません。 どのように修正すればいいんでしょうか？ よろしくお願いします。

  • 実行時エラー49　DLLが正しく呼び出せません。

    アクセス２０１０です。 今まで問題なく動いてたファイルなのですが Call マクロ1(str1, str2) Sub マクロ1(str1, str2) If ○○ Then If Form_F_Form.ck_OK.Value = 0 Then Exit Sub End If と言うところのExit Subで 実行時エラー49　DLLが正しく呼び出せません。 となります。 これはファイルが壊れているのでしょうか？

  • ＵＲＬ名を取得するには？

    アクセスのフォームに Web Browserを設置して、 Me.WebBrowser1.Navigate　"http://www.yahoo.co.jp/" としました。 その時、サイト名（名前）を、タブに表示したいのですが、まず名前の取得ができません。 http://www.yahoo.co.jp/の名前は「Yahoo! JAPAN」です。 Sub a() Debug.Print Form_フォーム1.WebBrowser1.Navigate.Name Debug.Print Form_フォーム1.WebBrowser1.url.Name End Sub どちらもエラーになってしまいます。 ご教授よろしくお願いします。

  • テキストファイル操作　実行時エラー '52'

    お世話になります。 現在 Excel2003の環境でVBAを使いファイル生成プログラムを書いています。生成されるファイルは、フォルダの中へ階層構造上に生成されていき、第5階層まで生成できます。 下記モジュールは、第4階層目のファイルを生成するモジュールとなっており、第１～３のモジュールと、パスの指定以外違いが無いのですが、 上手く生成できるときと、「実行時エラー '52'」が表示されるときがあり、まったく原因がつかめません。 第１～３のモジュールは何の問題も無く動作します。 エラーが出るのは、下記の 「 Open TargetFile For Output As fno」の部分です。 実行時エラー '52'になりうる原因も調べてみましたが、どれも該当しません。 １.操作しようとしたファイルが存在しなかった。 ２.操作しようとしたファイルに対するアクセス権がなかった。 ３.操作しようとしたファイルを Open 文で開いていない、または不正なファイルユニット番号を使っている。 ４.ネットワーク上のファイル（例. \\Server\Share\hoge.txt）を操作しようとした。 どなたかお知恵をお貸し下さいorz '＜サンプルモジュール＞ WBK = ThisWorkbook.Path 'フォルダパスを分割 buf = SH1.OLEObjects("test1").Object.Value A = Split(buf, " ＞ ") 'ターゲットファイル Target = WBK & "\..\..\..\..\..\data\sample\" & A(1) & "\" & A(2) & "\" & A(3) & "\" & A(4) & "\" & A(4) & ".txt" 'ファイル生成及び書き込み fno = FreeFile Open TargetFile For Output As fno For i = 0 To 19 If SHDB.Range("O" & i + 3) <> "" Then Print #fno, SHDB.Range("O" & i + 3); ","; End If Next i Close fno

  • 実行時エラーが表示されます。

    VBA初心者です。 以下のコードを打つと、実行時エラー`91'オブジェクト変数またはWithブロック変数が設定されていません。 と出てしまいます。 どこを直したら上記の表示が消えますか？ Sub テスト() Set obj = CreateObject("InternetExplorer.Application.1") obj.Visible = True targetURL = "http://map.japanpost.jp/pc/syousai.php?id=300197019000" obj.navigate (targetURL) Do While obj.Busy Loop obj.Visible = True For i = 0 To obj.Document.All.tags("div").Length - 1 If obj.Document.All.tags("div")(i).classname = "str_title_hira" Then s = obj.Document.All.tags("div")(i).InnerText Range("A1") = s End If Next For i = 0 To obj.Document.All.tags("p").Length - 1 If obj.Document.All.tags("p")(i).classname = "unit" Then s = obj.Document.All.tags("p")(i).InnerText Range("A3") = s End If Next obj.Quit End Sub

  • VBでデバックするとエラーになる。

    VBでデバックすると下のようなエラーがでます ArgumentNullExceptionはハンドルされませんでした。 値を Null にすることはできません。 パラメーター名: activationContext VBを初めて日が浅いのでヘルプを読んでも意味が理解できませんでした。 なので、易しく回答してもらえると嬉しいです コードは下です Public Class Form1 'TextBox2に入力したURLをWebBrowser1で表示する Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate(TextBox2.Text) End Sub 'ブラウザ→戻るでWebBrowser1を処理する Private Sub 戻るToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 戻るToolStripMenuItem.Click WebBrowser1.GoBack() End Sub 'ブラウザ→進むでWebBrowser1を処理する Private Sub 進むToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 進むToolStripMenuItem.Click WebBrowser1.GoForward() End Sub 'ブラウザ→テキストボックスにURLを入力した時の処理 Private Sub ToolStripTextBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripTextBox1.Click WebBrowser1.Navigate(ToolStripTextBox1.Text) End Sub 'TextPageのタブをクリックした時のイベント Private Sub TabPage1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage1.Enter TextBox2.Visible = False Button1.Visible = False ブラウザToolStripMenuItem.Enabled = False 書式ToolStripMenuItem.Enabled = True ToolStripMenuItem1.Enabled = True End Sub 'BrowserPageのタブをクリックした時のイベント Private Sub TabPage2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage2.Enter TextBox2.Visible = True Button1.Visible = True ブラウザToolStripMenuItem.Enabled = True 書式ToolStripMenuItem.Enabled = False ToolStripMenuItem1.Enabled = False End Sub Private Sub 新規ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新規ToolStripMenuItem.Click TextBox1.Text = ("") End Sub Private Sub 開くToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開くToolStripMenuItem.Click Dim selectButton As DialogResult Dim filename As String selectButton = OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName If selectButton = DialogResult.OK Then Try TextBox1.Text = _ My.Computer.FileSystem.ReadAllText(filename, System.Text.Encoding.Default) Me.Text = "Visual Text" & filename Catch ex As Exception End Try End If End Sub Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click Dim selectButton As DialogResult Dim filename As String selectButton = SaveFileDialog1.ShowDialog() filename = SaveFileDialog1.FileName If selectButton = DialogResult.OK Then Try My.Computer.FileSystem.WriteAllText(filename, TextBox1.Text, False, System.Text.Encoding.Default) Me.Text = "Visual Text" & filename Catch ex As Exception End Try End If End Sub Private Sub フォントToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles フォントToolStripMenuItem.Click Dim fd As New FontDialog() fd.Font = TextBox1.Font fd.Color = TextBox1.ForeColor fd.MaxSize = 19 fd.MinSize = 8 fd.FontMustExist = True fd.AllowVerticalFonts = False fd.ShowColor = True fd.ShowEffects = True fd.FixedPitchOnly = False fd.AllowVectorFonts = True If fd.ShowDialog() <> DialogResult.Cancel Then 'TextBox1のフォントと色を変える TextBox1.Font = fd.Font TextBox1.ForeColor = fd.Color End If End Sub End Class

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する