VBAについてのエラー番号13のヘルプファイルについて
- VBAのコードを実行すると、エラー番号13が返ってきます。エラーの内容は「型が一致しません」となっており、ヘルプファイル名は1000013、プロジェクト名はVBAProjectとなっています。しかし、エラーにも関わらずヘルプは表示されず、ヘルプファイル名の1000013という数字は一体何を表しているのでしょうか。
- VBAのコードを実行すると、エラー番号13が返ってきます。エラーの内容は「型が一致しません」となっており、ヘルプファイル名は1000013、プロジェクト名はVBAProjectとなっています。しかし、エラーにも関わらずヘルプは表示されず、ヘルプファイル名の1000013という数字は一体何を表しているのでしょうか。
- VBAのコードを実行すると、エラー番号13が返ってきます。エラーの内容は「型が一致しません」となっており、ヘルプファイル名は1000013、プロジェクト名はVBAProjectとなっています。しかし、エラーにも関わらずヘルプは表示されず、ヘルプファイル名の1000013という数字は一体何を表しているのでしょうか。
- ベストアンサー
ヘルプファイルはどこにあるのですか？
ＶＢＡについて質問です。 Sub OnErrorTest() On Error GoTo ErrorTrap Dim i As Integer i = "test" ErrorTrap: MsgBox "エラー番号:" & Err.Number & vbCrLf & _ "エラー内容：" & Err.Description & vbCrLf & _ "ヘルプファイル名" & Err.HelpContext & vbCrLf & _ "プロジェクト名：" & Err.Source End Sub 上記のコードを実行すると エラー番号:13 エラー内容：型が一致しません。 ヘルプファイル名1000013 プロジェクト名：VBAProject が返ってきます。 しかしエラーなのにヘルプは表示されません。 なのにヘルプファイル名1000013となるのはどういう事なのでしょうか？ この1000013と言う数字は何を表していますか？
- fd6a89
- お礼率100% (15/15)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Err.HelpContextというのは、ヘルプファイル名ではありません。 ヘルプファイルのページ番号みたいなものです。 MsgBoxなんかで、ヘルプファイル名と、HelpContextを指定してあげると、 ヘルプボタンで、指定されたヘルプファイルの、該当ページが表示できたりします。
関連するQ&A
- 二つのエラーを発生させたい
ひとつのプロシージャー内で、 二つのエラートラップを仕掛ける事は出来ないのでしょうか？ Sub エラーが発生した時にエラーが発生したら() Dim i As Long On Error GoTo Err1 i = "a" Exit Sub Err1: MsgBox "Err1のエラー： " & Err.Description On Error GoTo Err2 i = "b" Exit Sub Err2: MsgBox "Err2のエラー： " & Err.Description End Sub を行うと、 i = "b" で2回目のエラーが発生した時は、 実行時エラーになってしまいます。 i = "b" で2回目のエラーが発生した時に、 「Err2のエラー： 型が一致しません。」 と表示させるにはどうすればいいでしょう？ Sub エラーが発生した時にエラーが発生したら() Dim i As Long On Error GoTo Err1 On Error GoTo Err2 i = "a" Exit Sub Err1: MsgBox "Err1のエラー： " & Err.Description i = "b" Exit Sub Err2: MsgBox "Err2のエラー： " & Err.Description End Sub にすると、 i = "a" のエラーで、 「Err2のエラー： 型が一致しません。」 へ移動してしまいます。
- ベストアンサー
- オフィス系ソフト
- シートモジュールからのErr.Raiseについて
Excel（Office 2007）で以下のようにシートモジュールで 発生したエラーの詳細を標準モジュール側で取得しようとしたところ SourceとDescriptionで指定した文字列が取得できませんでした。 どうすれば指定した元の文字列を取得することができるでしょうか。 どなたかお知恵をお貸しください。 【シートモジュール（Sheet1）内のソースコード】 Public Sub Hoge() Err.Raise Number:=1000, Source:="Fugo", Description:="Fuga" End Sub 【標準モジュール内のソースコード】 Public Sub Piyo() On Error Goto Error1 Sheet1.Hoge Exit Sub Error1: MsgBox "Num=" & Err.Number & ", Src=" & Err.Source & ", Dsc=" & Err.Description End Sub 【MsgBoxの表示結果】 Num=1000, Src=VBAProject, Dsc=アプリケーション定義またはオブジェクト定義のエラーです。
- ベストアンサー
- その他（プログラミング・開発）
- vbaで、postgresqlアクセス問題
vbaで、postgresqlアクセス問題： データベースに、データは ***0000, でも、vbaで、取得したのは ****.四つの0が自動に、削除されました。 例： postgresqlに、 40000 ⇒ vbaで、取得した： 4 vbaソース： Option Explicit Sub subPgGetData() Dim adoCn As New ADODB.Connection On Error GoTo ErrLogin: With adoCn .Provider = "PostgreSQL OLE DB Provider" .Properties("Data Source") = Range("B1").Value .Properties("Location") = Range("B2").Value .Properties("User ID") = Range("B3").Value .Properties("Password") = Range("B4").Value .Open End With On Error GoTo 0 Dim adoRs As New ADODB.Recordset On Error GoTo ErrSql: adoRs.Open Range("B6").Value, adoCn, adOpenForwardOnly, adLockReadOnly On Error GoTo 0 Workbooks.Add Cells.CopyFromRecordset adoRs Cells.Columns.AutoFit adoRs.Close: Set adoRs = Nothing adoCn.Close: Set adoCn = Nothing Exit Sub ErrLogin: MsgBox "" & vbCrLf & Err.Number & vbCrLf & Err.Description Set adoCn = Nothing Exit Sub ErrSql: MsgBox "" & vbCrLf & Err.Number & vbCrLf & Err.Description Set adoRs = Nothing adoCn.Close: Set adoCn = Nothing Exit Sub End Sub わかる方はご指示ください。 よろしくお願いします。
- 締切済み
- PostgreSQL
- BASP21を使ってファイル添付メールを送信したい
basp21 pro（http://www.b21soft.co.jp/basp21/）でメールにファイル添付したいのですが エクセルファイルを添付したいのですが、SendMailで型が一致しませんというエラーが出ます。 教えてください＞＜； ファイル名に指定しているセルCells(i, 28) は =AC3&"\"&AD3 の様に場所を指定しています （AD3 部分が変わっていくので。ここを変えた方がいいでしょうか？） 内容は一部省略しておりますが ↓です Sub SendMailMacro1() Dim szServer, szTo, szFrom, szSubj, szBody, ret, szLogfile, z As String Dim szFile As Variant Dim i, j As Long Dim fs, a As Object On Error GoTo Err_Handler Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("C:\Program Files\log.txt", True) szServer = Worksheets("maildata").Cells(10, 2) szFrom = Worksheets("maildata").Cells(8, 2) With Worksheets("senddata") i = 2 Do While .Cells(i, 1) <> "END" If .Cells(i, 1) = "1" Then If .Cells(i, 3) = "1" Then szTo = .Cells(i, 5) & vbTab & "bcc" & vbTab & .Cells(1, 36) End If szBody = .Cells(i, 26) szSubj = .Cells(i, 25) szFile = .Cells(i, 28) ret = SendMail(szServer, szTo, szFrom, szSubj, szBody, szFile) If Len(ret) <> 0 Then a.WriteLine (Date & " " & Time & " " & ret & "－" & szTo & "－" & szBody) MsgBox "エラー ・・・ " & i & "行目 ( " & ret & ")" .Cells(i, 1) = "エラー" Else .Cells(i, 1) = "完了" End If End If i = i + 1 Loop End With MsgBox "終了" GoTo Exit_sub Err_Handler: MsgBox Err.Description, vbCritical, "Error" GoTo Exit_sub Exit_sub: a.Close End Sub 宜しくお願い致します＜（＿ ＿）＞
- ベストアンサー
- Visual Basic
- On ErrorでエラーNoが０
On ErrorでエラーをトラップしてエラーNOとエラー内容をダイアログに表示させています。 Private Sub pv_sample() Dim errno as Long On Error GoTo ERR_END ' 処理内容略 Exit Sub ERR_END: errno = Err.Number MsgBox "システムエラー エラーＮＯ(" & errno & ") 内容(" & Err.Description & ")" End Sub エラーが発生した場合はErr.Numberには0以外がセットされるはずですが 「システムエラー エラーＮＯ(0) 内容()」 というメッセージが表示されることがあります。 On Eroorで飛んできたときにエラーNoが0になってしまうことはありえるのでしょうか。
- ベストアンサー
- Visual Basic
- 100問を超えたら終了ですのメッセージをだしたい（あくせす）
Private Sub cmd次_Click() On Error GoTo Err_cmd次_Click DoCmd.GoToRecord acForm, "F_さあやってみよう", acNext If (Forms!F_さあやってみよう!txt番号 = 100) 'これだと100問になったときにメッセージがでてしまいます。100問を終了してボタンをクリックしたら 終了のメッセージを表示したいのですが、 101という番号はありません。 Then Beep MsgBox "終了です(*^。^*)", vbInformation, "終了" End If Exit_cmd次_Click: Exit Sub Err_cmd次_Click: MsgBox Err.Description Resume Exit_cmd次_Click End Sub よろしくお願いしますm(__)m
- ベストアンサー
- オフィス系ソフト
- インデックスが有効範囲にありませんと出てしまう
VBAで"実行時エラー9 インデックスが有効範囲にありません"と出てしまいます、解決方法を教えていただけないでしょうか? 以下のVBAで上記のエラーが出てしまいます。ちなみに私はVBA初心者です。 VBAの内容としてはとあるブックのシートを丸ごと、そのシートを必要とするブックのシートに貼り付けるというものです。 Sub コピー() Dim ファイル名, 基本ファイル名 Dim i, j As String i = ActiveWorkbook.Name j = ActiveSheet.Name Application.DisplayAlerts = False 基本ファイル名 = Sheets("データリスト").Range("B14").Value →ここでエラー発生 Workbooks.Open 基本ファイル名 If Err.Number > 0 Then MsgBox "『○○』を開けませんでした" & vbCrLf & _ "ファイル名が間違っているか、存在しないか、拡張子が違います" & vbCrLf & vbCrLf & _フォルダ & " に " & vbCrLf & _ 基本ファイル名 & "ファイルがありません" Exit Sub End If Worksheets("リスト").Range("A1:N400").Copy Workbooks(i).Worksheets("リスト").Range("A1:N400").PasteSpecial Workbooks(基本ファイル名).Close SaveChanges:=False →ここでもエラーが出てしまうことがある Sheets(j).Select Application.DisplayAlerts = True MsgBox ("リストを取り込みました") End Sub
- 締切済み
- Visual Basic
- Access2013で確認メッセージを消すには
画像ファイルの管理データベースを作っています。 管理データベースには、ローカルファイルのフルパスのみ記録し ボタンをクリックしたとき、Windowsフォトビューアで プレビューするようにコードを書きました。 しかし、JPGファイルを開くときは問題ないのですが PNGファイルを開くとき、毎回Microsoft Officeの確認メッセージ ～を開いています。ファイルにはウイルスやコンピューターに問題を起こす 可能性のあるものが含まれていることがあります。 このファイルが信頼できる所からのものか確かめてください。 ファイルを開きますか？ が表示されます。 メッセージを表示させない為にはどうしたら良いか、ご教授願います。 以下、ファイルを開く為に作ったコード2種です。 実行結果は同じです。 コード1 Private Sub OpenBotan_Click() Dim strInput As String On Error GoTo Error_GetUserAddress strInput = Me.パス Application.FollowHyperlink strInput, , True GetUserAddress = True Exit_GetUserAddress: Exit Sub Error_GetUserAddress: MsgBox Err & ": " & Err.Description GetUserAddress = False Resume Exit_GetUserAddress End Sub コード2 Private Sub イメージ21_Click() On Error GoTo エラー Dim myTextValue As TextBox Set myTextValue = Me.パス If IsNull(myTextValue) Then MsgBox "URLが未入力です。": Exit Sub Me.イメージ21.HyperlinkAddress = "" '--- A Me.イメージ21.HyperlinkAddress = myTextValue Exit Sub エラー: MsgBox Err.Number & " : " & Err.Description Exit Sub End Sub
- 締切済み
- オフィス系ソフト
- エラーが発生した場合は ＶＢＡ
Sub Sample() On Error GoTo Err1 Dim i As Integer i = "あ" '←ココで構文エラーとなる。 MsgBox "あ" Debug.Print "無事終了します" Exit Sub Err1: Debug.Print "エラーになりました" i = 1 Resume Next 'エラーの発生した次の行から処理を続行します。 End Sub このようなエラー処理で エラーが発生した場合は MsgBox "あ" ではなく i = "あ" '←ココで構文エラーとなる。 に戻る事は出来ないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- Outlook2007送信前の宛先確認のVBAにて
Outlook2007 送信前の宛先確認のマクロを設定したいと考えています。 Option Explicit Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) On Error GoTo Ex ception Dim strCC strCC = vbCrLf Dim objRec As Recipients For Each objRec In Item.Recipients strCC = strCC & objRec.Name & vbCrLf Next Dim strMsg As String strMsg = "件名:" & Item.Subject & vbCrLf & _ _ strCC & vbCrLf & _ _ "上記の宛先に、メールを送信してもよろしいですか?" If MsgBox(strMsg, vbExclamation + vbYesNo + vbDefaultButton2) <> vbYes Then Cancel = True End If On Error GoTo 0 Exit Sub Exception: MsgBox CStr(Err.Number) & ":" & Err.Description, vbOkOnly + vbCritical Cancel = True Exit Sub これだけだと、End subが必要ですというポップアップがあがり、付加すると『型が一致しません』というポップアップがあがってしまいます。 どうすれば良いか教えていただけますか？ あと、宛先をグループ登録してる場合、グループ登録している宛先を氏名で表示する方法はありますでしょうか？？
- 締切済み
- Visual Basic
お礼
ヘルプファイル名ではないのですか。 もっと勉強してみます。有難うございました。