- 締切済み
Windows7 & VB6(SP6) & office2010(Bata)
WindowsXP & VB6(SP5) & office2003の組み合わせで プログラミングをしておりました。 Windows7 & VB6(SP6) & office2010(Bata)の組み合わせで テストをしております。 Dim wApp As Excel.Application ここで、 コンパイルエラー ユーザー型は定義されていません。 と、なってしまいます。 解決方法を教えて下さい。宜しくお願い致します。
- m-toshi
- お礼率66% (161/243)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- n-jun
- ベストアンサー率33% (959/2873)
参照設定されていないのでは? (チェックが外れているとか)
関連するQ&A
- Windows7&VB6(SP6)&Excel2000
Windows7(RC)でテストをしております。 VB6(SP6)&Excel2000の組み合わせでエラーが発生します。 Dim wApp As Excel.Application Set wApp = CreateObject("Excel.Application") <--- ここでエラー メッセージは、 実行時エラー '-2147024156 (800702e4)'; オートメーションエラーです。 要求された操作には管理者特権が必要です。 と、なります。 Excelのプロパティのショートカットタグの詳細設定ボタンを 押すと、「管理者として実行」と言う項目のチェックボックスが あるのでずが、グレーアウトになっていてチェックが入れれません。 何か、解決策がありましたら、教えて下さい。 宜しくお願い致します。
- 締切済み
- Windows系OS
- VB6では、Applicationは未定義なのでしょうか?
VB6を使ってプログラムを書いているのですが、以下のソースの部分で エラーになりました。 Dim winname As String winname = Application.Caption <-- Applicationが未定義? コンパイルエラー 変数が定義されていません。 というエラーメッセージが表示されます。 VB6では、Applicationは未定義なのでしょうか?
- ベストアンサー
- Visual Basic
- 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
- VBのString型の配列をVCで受け取るには?
VBでString型の配列として定義されている変数を VCのプログラムで受け取るにはどうすればよいのでしょうか? 試しにVBでString型の配列を作って DLLのC_TESTというファンクションを呼び出すという 処理を作ってみたのですが、コンパイルエラーになってしまいます。 なにかおかしいところありますか? そもそもVCにはString型ってないんですよね? プログラミング初心者ですので、変な言葉遣いに なってるかもしれませんが宜しくお願いします。 VB Declare Function C_TEST Lib "\test.dll" (ByVal data() As String) As Integer Dim A(1) As String dim rtn as Integer A(0)="あああ" A(1)="いいい" rtn= C_TEST(A) VCのプログラム int _stdcall C_TEST(LPSTR A[2] ){ AfxMessageBox( A[0] ); return(0); }
- ベストアンサー
- C・C++・C#
- Access2002 VB がエラー
Access2002 VBで以下のコーディングをしてます Dim db As Database Dim rs As Recordset Dim fld As Field Set db = CurrentDb Set rs = db.OpenRecordset("ConvertChar") これを実行するとdb宣言行で以下のエラーが表示されます。 コンパイルエラー: ユーザ定義型は定義されていません。 これは何が原因でエラーとなるのでしょうか? 宜しくお願いします。
- ベストアンサー
- Visual Basic
- DataObjectの使用
ワードのVBでヘルプを見ながら Dim MyDataObject As DataObject を宣言しましたが、コンパイルすると「ユーザー定義型は定義されていません」とエラーになります。どこが間違っているのでしょうか?
- ベストアンサー
- Visual Basic
- vb→access コーディングエラーについて
<環境>access2007 vbコーディングした以下のコードをaccessに移行しているのですが、宣言で"Excel.~"となっているところでコンパイルエラーとなります。 (エラー:ユーザー定義型は定義されていません。) なので、全てObject型に変えたのですが、 (1)objBook.Names.Countで件数が取れないし、 (2)For Each objName In objBook.Namesで名前も取れません。 accessで動くようにどう直せばいいのでしょうか? よろしくお願いします。 <vbコード> Dim XLAPP As Excel.Application →Objectに変更 Dim objBook As Excel.Workbook →Objectに変更 Dim objName As Excel.Name →Objectに変更 Dim objTable As Excel.Range →Objectに変更 Dim objRange As Excel.Range →Objectに変更 Dim objColumn As Excel.Range →Objectに変更 Dim objRow As Excel.Range →Objectに変更 Dim i As Integer Dim lngCountSheet As Long Set XLAPP = CreateObject("Excel.Application") Set objBook = XLAPP.Workbooks.Open(FileName) objBook.Application.DisplayAlerts = False lngCountSheet = objBook.Names.Count (1)←ここ For Each objName In objBook.Names (2)←ここ Set objTable = objName.RefersToRange With objTable For i = 1 To .Columns.Count Set objColumn = .Columns(i) objColumn.HorizontalAlignment = XlHAlign.xlHAlignLeft Set objColumn = Nothing Next i '先頭行の書式設定をします Set objRow = .Rows(1) objRow.Interior.Color = RGB(192, 192, 192) ' .Range("A2").Activate '' ActiveWindow.FreezePanes = True ' XLAPP.ActiveWindow.FreezePanes = True End With Next XLAPP.Quit
- ベストアンサー
- その他(プログラミング・開発)
- 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
- vb2010で既存のエクセルを開くには?
初心者です。 VB6.0からvb2010への乗り換えをしていますが、以下のコードでxlBooks = xlApplication.Workbooksのところで止まってしまいます。 参考ページをいろいろ見ましたが原因が分かりません。 実行する前のコードに波線はでません。 CreateObjectでやっても結果は同じでworkbookを作るところでエラーとなります。 エラーは「タイプライブラリのロードに失敗」ですが、であればDim xlApplication As New Excel.Application()かCreateObjectで止まるように思いますが、理由がわかりません。 WinXP, Office2003, .Net 4.0. vb2010Expressの組み合わせで全てアップデート済み、参照設定はExcel 11.0 Object Libraryです。 どなたかご教示頂ければ幸甚です。 Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim xlApplication As New Excel.Application() Dim xlBooks As Excel.Workbooks xlBooks = xlApplication.Workbooks xlBooks.Open("C:\Hoge.xls") - - System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks) System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApplication) End Sub End Class
- 締切済み
- Visual Basic
- VB.NETでExcelの数式バーの処理をさせたい
Excelのセルにいろいろな数式が入っていて、 この数式を書き出したテキストファイルを読み込ませて、 VB.NETで処理をしたいのですが、 VB.NETで、Excelの文字列関数を含んだ式を処理するには どのように記述すればよいでしょうか。 単なる計算式であれば Dim xlApp As New Excel.Application Dim str1 As String Dim x As Integer a = "3600 / 60 + 5000" x = xlApp.Evaluate(a) でできるのですが文字列だとうまくいきません。 例えば、ExcelのシートのA1セルを選択して 数式バーに =MID("ABCDE",2,3) と入力すると その結果のBCDがA1セルに得られますが VB.NETで、 =MID("ABCDE",2,3) から BCD を得るにはどのようにすればよいでしょうか。 なお、=MID("ABCDE",2,3) の式は一例であって、 以下のように、この式をVB.NETで記述する 仕方を知りたいのではありません。 Dim str1, str2 As String str1 = "ABCDE" str2 = str1.Substring(2, 3) よろしくお願いします。 (VisualStudio2010 , Excel2003 , WindowsXP SP3)
- ベストアンサー
- Visual Basic
補足
ご回答をありがとうございます。 1つ説明が不足しておりました。 Windows7 & VB6(SP6) & office2003 の、組み合わせでは 動いておりました。 また、office2010にすると、参照設定にMicrosoftExcelが 無いのです。 宜しくお願い致します。