プロシージャの呼び出し、または引数が不正です

2023/10/18 15:33

このQ&Aのポイント

プロシージャの呼び出し、または引数が不正なため、エラーが発生しました。
エラーの原因がわからないため、誰かに教えてもらいたいです。
使用している環境はWinXP SP3とMicrosoft Excel 2003 SP3です。

ベストアンサー

"プロシージャの呼び出し、または引数が不正です"というエラーが出ました

2010/06/03 16:17

"プロシージャの呼び出し、または引数が不正です"というエラーが出ました。原因がよく分かりませんので、誰か分かりますか？ Dim ExcelPath As String, fName As String Dim lLen As Long, start As Long Dim filetxt Dim bArray() As Byte fName = Workbooks.Application.ActiveWorkbook.Path & "\ExcelDoc.txt" lLen = FileLen(fName) Open fName For Binary As #1 ReDim bArray(0 To lLen) Get #1, 3, bArray Close #1 filetxt = bArray ExcelPath = Left(filetxt, InStr(1, filetxt, Chr(13)) - 1)　＝＝＞ここでエラーが出ました。使っている環境は： WinXP SP3 Microsoft　Excel　2003　SP３

MLTR
お礼率100% (1/1)

その他（プログラミング・開発）
回答数1
ありがとう数5

みんなの回答 （1）
専門家の回答

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

ベストアンサー

FEX2053
ベストアンサー率37% (7987/21355)

2010/06/03 16:44 回答No.1

変数 filetxt が何となく臭うような・・・。本当に文字列になってますか？ filetxt = cstr(bArray) にしてみるとか・・・。

質問者

お礼 2010/06/03 17:17

FEX2053さん。早速回答してくれてありがとうございました。私はｃｓｔｒを使ってみたが、文字化けになっちゃって、 StrConvを使いました。エラーはもうでないので、ありがとうございます。

関連するQ&A

エクセルVBAでのエラー
おはようございます。昨日ここでいろいろ教えていただき、300のエクセルファイルから特定の範囲のデータ抽出方法を書いてみたのですが、セルが多すぎて実行できません、というエラーがでてしまいます。これはどのように解消すればよろしいのでしょうか？ Sub Test() Dim FPath1 As String, FPath2 As String Dim FName As String, myBook As String Const startROW As Long = 14, lastROW As Long = 20 Const startCOL As Long = 8, lastCOL As Long = 10 Const shtNAME As String = "sheet1" Application.ScreenUpdating = False FPath1 = "D:\MR5567\" FPath2 = "D:\New Microsoft Excel Worksheet\" Workbooks.Add myBook = ActiveWorkbook.Name FName = Dir$(FPath1 & "*.xls") Do While FName <> "" Workbooks.Open Filename:=FPath1 & FName ActiveWorkbook.Sheets.Select Sheets(1).Activate Sheets.Copy After:=Workbooks(myBook).Sheets(Sheets.Count) Workbooks(FName).Activate Application.DisplayAlerts = False ActiveWorkbook.Close FName = Dir$ Loop ActiveWorkbook.SaveAs Filename:=FPath2 & "Renketsu.xls", FileFormat:=xlNormal ActiveWorkbook.Close Application.ScreenUpdating = True End Sub
- ベストアンサー
- オフィス系ソフト
ActiveWorkBook　VBA
Sub test() Dim myCSV As String Dim Fname As Variant Dim Aname As String Dim Fullp As String Application.ScreenUpdating = False Fullp = ActiveWorkbook.FullName Pos = InStrRev(Fullp, "\") Fname = Left(Fullp, Pos) myCSV = Dir(Fname & "*.csv") Do Until myCSV = "" Workbooks.Open Fname & myCSV Aname = Left(Fullp, InStr(1, Fullp, ".") - 1) ActiveWorkbook.SaveAs filename:=Aname & ".xls", FileFormat:=xlExcel9795 ActiveWorkbook.Close myCSV = Dir() Loop Kill Fname & "*.csv" End Sub あるフォルダにあるcsvファイルをxlsで保存したいと思いましたが、アクティブになるBOOKがバラバラ？で、うまくいきません。csvファイルを開いたときにそのファイルがアクティブになり、うまくloopできないでしょうか？
- ベストアンサー
- オフィス系ソフト
VBAでバイナリエディタを作ろうとしています
テキストファイルを内部でバイナリとして開いて 16進数のダンプファイルとして新たなテキストに保存することはできたのですが逆がどうしてもできません。やり方としては、 03 E3 BD 71 80… のようなテキストデータをバイナリにして16進数にして保存したテキストファイルをダイアログから呼び出してもう一度元のテキスト文章に戻すという作業です。とりあえず、まずは以下のコードでエクセル内で16進数を元の文章データに変換しようとしています。 Sub binaryToText() Dim fname As String Dim str() As Byte Dim row As Integer row = 1 fname = "Test.txt" '16進数ファイル Open fname For Binary As #1 Do Until EOF(1) ReDim Preserve str(row) Get #1, , str(row) row = row + 1 Loop Close #1 End Sub hex関数やchr関数を使う必要があるのでしょうか？ VBAは始めたばかりで根本的なところで間違っているかもしれませんがよろしくお願いします。
- ベストアンサー
- Visual Basic
UTF8で作成されたHTMLファイルの表示について
WebBrowserをフォームに貼り付け、次のようなコードを記載してたのですが、表示が文字化けしてしまいます。どうすればよいでしょうか？ Private Sub Form_Load() Dim html As String Dim pDoc As Object html = ReadFileData("UTF8.html") Set pDoc = New MSHTMLCtl.HTMLDocument WebBrowser1.Navigate "about:blank" Set pDoc = WebBrowser1.Document pDoc.writeln html Set pDoc = Nothing End Sub Public Function ReadFileData(ByVal FileName As String) As String Dim bytArray() As Byte Dim intFileNo As Integer Dim lngFileLenB As Long lngFileLenB = FileLen(FileName) ReDim bytArray(lngFileLenB - 1) intFileNo = FreeFile Open FileName For Binary As #intFileNo Get #intFileNo, , bytArray Close #intFileNo ReadFileData = StrConv(bytArray, vbUnicode) End Function 環境：VB6＋WinXP
- ベストアンサー
- Visual Basic
VBAであるBOOKの「sample」というシートを別BOOKに
VBAであるBOOKの「sample」というシートを別BOOKに別Bookにコピーしたいのですが、ネットを参考にして下記のようにするとエラーになります。実行時エラー'9' 「インデックスが有効範囲にありません」と表示されます。どこが間違っているでしょうか？　どなたか教えてください。 ---------------------------------------- Dim NewBook As Workbook Dim fName As String Set NewBook = Workbooks.Add fName = ThisWorkbook.Path & "cp.xls" NewBook.SaveAs Filename:=fName Workbooks("moto.xls").Sheets("ピッキング").Cells.Copy Workbooks(fName).Sheets("Sheet1").Paste Destination:=Cells(1, 1) '<---ここでエラー Workbooks(fName).Save ----------------------------------------
- ベストアンサー
- Visual Basic
excel2007でエラーになるマクロ
Excel2003では問題なく動いていた以下のマクロですが、これはボタンにマクロを貼り付けてあり、それを2007で実行すると、「問題が発生したため、Microsoft Office Excelを終了します」となり、強制終了になってしまいます。でも、VBEの方で実行すると、ワークシートはちゃんと保存されて正しく閉じます。（その場合、VBE自体は終了にならず、起動したままです）また、マクロを表示させてマクロ名を選択し、実行をクリックすると、正常に動作します。新しく別の図形を作成し、そこにマクロを貼り付けるとやはり強制終了になります。 Excel2007で、リソースの診断などしても問題は見つかりません。 Windowsは、ＳＰ２でだめだったので、ＳＰ３にしてみましたが、現象は同じで何ら変化はありませんでした。エラーを出さなくするにはどうすればよいのでしょうか。 --------マクロ--------- Sub ファイル名を変えて保存して閉じる() Dim nnen As String Dim kcode As String Dim kcode2 As String Dim cname As String Dim dno As String Dim dno2 As String Dim myPath As String nnen = ActiveWorkbook.Worksheets("inputform").Range("O5") kcode = ActiveWorkbook.Worksheets("inputform").Range("R3") kcode2 = Format(kcode, "000") cname = ActiveWorkbook.Worksheets("inputform").Range("C7") dno = ActiveWorkbook.Worksheets("inputform").Range("H26") dno2 = Format(dno, "00000") myPath = ThisWorkbook.Path & "\" On Error Resume Next 'エラーが発生しても処理を続行する ActiveWorkbook.SaveAs Filename:=myPath & "様式5_" & nnen & kcode2 & "【" & cname & dno2 & "】" _ , CreateBackup:=False On Error GoTo 0 'エラー処理ルーチンを無効にする ActiveWorkbook.Close End Sub
- ベストアンサー
- オフィス系ソフト
【VB6.0】ファイルからサイズの大きいバイナリデータを読み込む際にエラー
はじめまして。初投稿の新米プログラマです。 VB6.0で多種類のファイルをバイナリデータとして読み込んで返却する関数を作成しています。 '------------------------------------- ' ファイルからバイナリデータを読み込む '------------------------------------- private Function GetBinaryData(ByVal strFileName As String) As Byte() On Error GoTo Exception Dim fileNo As Integer Dim fileSize As Long Dim bytData() As Byte 'ファイルのサイズを取得する fileSize = FileLen(strFileName) ReDim bytData(fileSize - 1) 'バイナリデータ読み込み fileNo = FreeFile Open strFileName For Binary Access Read As fileNo Get #fileNo, , bytData Close #fileNo '戻り値の設定 GetBinaryData = bytData Exit Function 'エラー処理 Exception: MsgBox (CStr(Err.Number) & " " & Err.Description) End Function ですが、↑の関数にサイズの大きなファイル(100M程度)を指定したとき　ReDim bytData(fileSize) で、「メモリが不足しています」というエラーが発生してしまいます。発生の仕方としては、'エラー処理のMsgBoxで表示されることもありますし、プログラムが停止することもありますし、 On Error GoToを記述しているのにも関わらず VBのメッセージボックスが表示されることもあります。　＃[継続][終了][デバッグ][ヘルプ]のボタンが出ているやつです。ちなみに、50M程度のファイルであれば読み込めています。このエラーが発生する原因は何なのでしょうか？また、解決方法(サイズの大きなファイルを確実に読み込む方法)はあるのでしょうか？解決方法がないのであれば、「○Ｍ以上のファイルはエラー」という仕様にしようと思うのですが、何Ｍまでなら確実に読み込むことが出来るのでしょうか？ …もしくは上のコーディング自体、検討違いでしょうか^^; 　＃バイト配列の要素数に上限があるとか…？とても困っています… どうかよろしくお願い致します。
- ベストアンサー
- Visual Basic
プロパティの引数（バイト配列）でエラー
いつもお世話になっています。実際に使用することがないようなロジックですが，下記のソースを実行するとVBが落ちてしまいます。原因がわからないので皆さんのお力をお借りしようと思い投稿させていただきました。よろしくお願いします。 ■開発環境■ OS:Windows XP + SP2 言語:Visual Basic 6.0 + SP5 =============== Form1 =============== Option Explicit Private Property Let Array1(ByRef bytArray() As Byte) Array2 = bytArray End Property Private Property Let Array2(ByRef bytArray() As Byte) '（省略） End Property Private Sub Command1_Click() Dim bytArray() As Byte ReDim bytArray(2) bytArray(0) = 1 bytArray(1) = 1 bytArray(2) = 1 Array1 = bytArray End Sub
- ベストアンサー
- Visual Basic
複数のブックの特定シートを1つのブックにまとめたい
複数のブックの特定のシートを1つのブックにまとめたいのですがそのマクロは下記のように検索してでてきたのですが Sub test() Dim Fname As String Dim Wbm As Workbook Dim Wbs As Workbook Application.ScreenUpdating = False Set Wbs = ThisWorkbook Fname = Dir(ThisWorkbook.Path & "\*.xlsx*") Do While Fname <> "" If Fname <> ThisWorkbook.Name Then Workbooks.Open ThisWorkbook.Path & "\" & Fname Set Wbm = ActiveWorkbook Wbm.Worksheets("2016.03").Copy after:=Wbs.Worksheets(Wbs.Worksheets.Count) ActiveSheet.Name = Left(Fname, InStr(Fname, ".") - 1) Wbm.Close End If Fname = Dir() Loop Application.ScreenUpdating = True End Sub たとえば、特定のシートというのが毎回変わる場合今回は”2016.03"ですが次回は”2016.04”という風に変わる時、どこかに入力したセルの値を元にシートを検索してくることなどは可能なのでしょうか？よろしくお願い致します。
- ベストアンサー
- Visual Basic
ThisWorkbookの使い方
お世話になります。 ThisWorkbookとActiveWorkbookの使い方で悩んでいます。 ThisWorkbookのデータをActiveworkbookにコピーしようとしています。 Sub test() Dim temp As String, lrow As Long temp = "C:\申請.xlt" Workbooks.Open temp MsgBox ThisWorkbook.Name MsgBox ActiveWorkbook.Name ThisWorkbook.Sheets("Sheet3").Range(Cells(6, 3), Cells(lrow, 3)).Copy ActiveWorkbook.Sheets(1).Cells(6, 3) End Sub メッセージボックスで確認するとThisWorkbookとActiveWorkbookを正しく選択してくれているのですが、実際にコピーをする作業のところでは、ThisWorkbookのデータを同じファイルに書き込んでしまいます。 Dim Sendbook As String Workbooks.Open temp Sendbook = ActiveWorkbook.Name を追加して ThisWorkbook.Sheets("Sheet3").Range(Cells(6, 3), Cells(lrow, 3)).Copy Workbooks(Sendbook).Sheets(1).Cells(6, 3) とすると、アプリケーション定義またはオブジェクト定義のエラーです。となります。どこが間違っているのか、教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic