- ベストアンサー
XPでエラー
こんにちは。宮本と申します。 先日、2つの質問を 一度にしてしまいましたので、改めて質問をさせて 下さい。 VB6(SP5)で、プログラミングをしております。 Windows2000のプログラムをそのままWindowsXPで 実行させようとすると 「コンバイルエラー プロジェクトまたはライブラリが見つかりません」 と、エラーが発生します。 具体的には、 Dim wBuf As String wBuf = "A" & Chr(13) & "B" の Chr の所です。 VB6(SP5)が、XPに対応している事は、確認済みです。 よろしくお願い致します。
- m-toshi
- お礼率66% (161/243)
- Visual Basic
- 回答数3
- ありがとう数4
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
過去すれ
その他の回答 (2)
- taknt
- ベストアンサー率19% (1556/7783)
http://www.ruriplus.com/msaccess/prb/prb_006.html http://www.users.gr.jp/ml/archive/access/3211.asp など 参考。 参照設定を確認してみてください。 どうなってますか？
お礼
ありがとうございました。参考にさせて頂きます。
- taknt
- ベストアンサー率19% (1556/7783)
wBuf = "A" & Chr$(13) & "B" というふうに $ をつけてみたらどうでしょうか？
補足
ご回答をありがとうございます。 早速、実行してみましたが結果は同じでした。(;_;)
関連するQ&A
- VB6(SP5) と XP について
こんにちは。宮本と申します。 VB6(SP5)で、プログラミングをしております。 Windows2000のプログラムをそのままWindowsXPで 実行させようとすると 1.「コンバイルエラー プロジェクトまたはライブラリが見つかりません」 と、エラーが発生します。 具体的には、 Dim wBuf As String wBuf = "A" & Chr(13) & "B" の Chr の所です。 2.プロジェクトの参照設定で、 「参照不可:Microsofr Excel 9.0 Object Libray」となっています。 Excelのファイルに落とせないのでしょうか ? よろしくお願い致します。
- ベストアンサー
- Visual Basic
- Excel vbs AppActivate エラー
Sub TeraPad_SF() 'Keyboard Shortcut: Ctrl+Shift+Q Dim RetVal As Integer Dim sA As String Dim sP As String Dim sV As String Dim sTxt As String sV = ActiveCell.Value sTxt = Left(sV, 1) & ".txt" '開くファイル名 sA = "D:\WebCamRegistor\txtFolder\" & sTxt '実行するプログラムのパス sP = "C:\Program Files\TeraPad\TeraPad.exe " RetVal = Shell(sP & sA, 1) If RetVal = 0 Then MsgBox "起動に失敗しました" AppActivate RetVal SendKeys "%SF" & sV, True End Sub '現在セルの値でAdobeReaderでxx.pdfを検索する Sub AdobeReader_SF() 'Keyboard Shortcut: Ctrl+Shift+Q Dim RetVal Dim sA As String Dim sP As String Dim sV As String Dim sTxt As String sV = ActiveCell.Value sTxt = Left(sV, 1) & ".pdf" '開くファイル名 sA = "D:\WebCamRegistor\pdfFolder\" & sTxt '実行するプログラムのパス sP = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " RetVal = Shell(sP & sA, 1) If RetVal = 0 Then MsgBox "起動に失敗しました" Application.Wait Now + TimeSerial(0, 0, 2) AppActivate RetVal SendKeys "^F", True End Sub Excel VBA で上は正常に動作しますが、下はAppActivate RetValでエラーとなります。修正の方法をお教えください。
- ベストアンサー
- その他（プログラミング・開発）
- ボタンの検知
すみません。初心者です。教えてください。 フォームにボタン１個、テキストボックス１個のプログラムです。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim chr As String Dim chr2 As String chr = "■" chr2 = Label1.Text Label1.Text = chr2 & chr End Sub このプログラムで ・ボタンを「押すたび」に"■"→"■■"→"■■■"と増えていきます。 これを ・ボタンを「押しままにすると」"■"→"■■"→"■■■"と増えていくようにするにはどうしたらよいでしょうか？ 例えばタイマー使って100ms毎とかで"■"の数を増やしたいと思っていますが、「ボタンを押している」ということをどのように拾ったらいいか考えてもわかりません。 どなたかすみませんが教えてください。
- ベストアンサー
- Visual Basic
- MSCommで、文字化け
こんにちは。いつも質問ばかりで恐縮ですが・・・ VB6(SP5)で、プログラミングをしております。 MSCommが文字化けをして困っております。 TA=NTT:V70MAX Windows2000 下記の通り、プログラミングをしています。文字化けがしない時は、ずっと うまく行きます。が、一度文字化けをしてしまうと、Windowsの再起動等を しなければどうにもなりません。(“・エZ・”等になります) Private Sub Form_Load() ‘初期化 MSComm1.CommPort = 1 MSComm1.Settings = "9600,N,8,1" MSComm1.Handshaking = comRTS MSComm1.RThreshold = 1 MSComm1.InputLen = 0 MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm() Dim wBuf As String If MSComm1.CommEvent = comEvReceive Then wBuf = MSComm1.Input Text1.Text = wBuf End If End Sub
- 締切済み
- Visual Basic
- "プロシージャの呼び出し、または引数が不正です"というエラーが出ました
"プロシージャの呼び出し、または引数が不正です"というエラーが出ました。原因がよく分かりませんので、誰か分かりますか？ 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３
- ベストアンサー
- その他（プログラミング・開発）
- vb2008でのクラスライブラリ実行に関して
vb2008でのクラスライブラリ実行に関しての質問なのですが、 クラスライブラリで以下の内容のプロジェクトを作成しました。 プロジェクト名：TEST ファイル名：TEST1.vb '～プログラム内容～ Module D01001B Public Function Main(ByVal CmdArgs() As String) As Integer 'バッチの処理内容 End Function End Module このバッチをデバックしたいのですが、どうやらクラスライブラリは 単体ではデバックできないらしくどうすればできるのか困っています。 調べてみると新しいプロジェクトでWindowsフォームアプリケーション を選択し、フォームからボタンを押して実行する方法があるとの ことなのですがどのように記述したらよいかわかりません。 できればどのように記述すれば実行(呼び出し)できるのか教えていただけないでしょうか？ 以上
- ベストアンサー
- その他（プログラミング・開発）
- VBAにて計算式をセルへ代入できなくて困っています
計算式を変数QRdataへ代入し その変数から指定のセルへ入力するとき、実行時エラー１００４となってしまい マクロを実行できずに困っています。 Cells(3, 6).ValueもRange("F3").Fourmulaと変えたりしたのですが解決方法が解らなく どうか御教授下さい。 Dim コードナンバー As String Dim 品名1行 As String Dim QRdata As String QRdata = "=("& Chr(34) & コードナンバー & 品名1行 & Chr(34) & ",1)" Cells(3, 6).Value = QRdata ←ここでエラーとなってしまいます。
- ベストアンサー
- Visual Basic
- VB6で固定長の文字列の長さを変更するには
あるライブラリを呼ぼうとしているのですが、 dim str as string * 100 dim lngLen as long lngLen = dlllib str と実行すると問題ないのですが、上記の100というのは、 固定値に出来ません。この値は、 lngLen = dlllib 0 で取得できる、lngLenの値にしたいです。 その場合は、どうすればよいでしょうか？ 久しぶりにVB6をやって困っています。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel ファイルに保存すると実行時エラーになる
こんにちは。宮本と申します。VB6(SP5)で、 プログラミングをしております。 下記の様にプログラミングをしましたが、どうしても [実行時エラー’1004’ test_1.xlsにアクセスできません]と、なります。 c:\test.xls は、元々ある事を前提とし、c:\test_1.xlsに上書きをしたいのです。 宜しくお願い致します。 Dim wApp As Excel.Application Dim wExl As Object Set wApp = CreateObject("Excel.Application") Set wApp = CreateObject("Excel.Application") Set wExl = wApp.Workbooks.Open("c:\test.xls") wExl.Worksheets(1).Cells(1, 1).Value = 3000 wExl.Application.Visible = False wExl.Application.DisplayAlerts = False wExl.SaveAs "c:\test_1.xls" <---ここで、エラー
- ベストアンサー
- Visual Basic
- windows7でActivex.dllがエラー
テストプログラムで下記のロジック project.dllの作成を実行した結果 Windows-XPでは正常に作成されるのに、 Windows7では ”シシテム レジストリへのアクセスでエラーが発生しました。" エラーになります。 どこを直したらよろしいでしょうか？ よろしくお願いいたします VB6.0でSP6を使用しております ・標準モジュール Sub Main() End Sub ・クラスモジュール Public MyString As String Public Function MyFunction() As String MyFunction = "You never know what you're gonna get." End Function Public Sub Class_Initialize() MyString = "Life is like a box of chocolates." End Sub
- 締切済み
- Visual Basic
お礼
ありがとうございました。今後は、過去れすを よく確認する様に致します。