chibita_papa の回答履歴
- CreateObjectでエラー発生(Excel2007が悪い?)
下記の環境、プログラムで"ActiveXコンポーネントを作成できません。"のエラーが出て困っています。 毎回ではなく、「1回目はエラーで、2回目以降は出ない」「たまに出る」など、動作が一定ではありません。 Excel2003では問題なく動作するので、Excelのバージョンを変更しようかとも考えています。(高価で入手しにくいので踏み切れずにいます。) Excel2007とVBの問題なのでしょうか? プログラムの変更で解決すればいいのですが…。 ご教示ください! ****** 環境 ****** OS:WindowsXP Professional Ver.2002 SP2 (Microsoft .NET Framework 2.0 Configuration) Excel:Microsoft Office Excel 2007 言語:VB2005 SP1 参照先:Microsoft Excel 12.0 Object Library ****** プログラム ****** Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlBook As Microsoft.Office.Interop.Excel.Workbook Dim xlSheet1 As Microsoft.Office.Interop.Excel.Worksheet Try xlApp = CType(CreateObject("Excel.Application"),Microsoft.Office.Interop.Excel.Application) xlBook = CType(xlApp.Workbooks.Open("C:\File\OutPutSheet_1System.xls"),Microsoft.Office.Interop.Excel.Workbook) xlSheet1 = CType(xlBook.Worksheets(1),Microsoft.Office.Interop.Excel.Worksheet) ↓↓以下省略 (開放は行っています。)
- 締切済み
- shin817
- Visual Basic
- 回答数2
- CreateObjectでエラー発生(Excel2007が悪い?)
下記の環境、プログラムで"ActiveXコンポーネントを作成できません。"のエラーが出て困っています。 毎回ではなく、「1回目はエラーで、2回目以降は出ない」「たまに出る」など、動作が一定ではありません。 Excel2003では問題なく動作するので、Excelのバージョンを変更しようかとも考えています。(高価で入手しにくいので踏み切れずにいます。) Excel2007とVBの問題なのでしょうか? プログラムの変更で解決すればいいのですが…。 ご教示ください! ****** 環境 ****** OS:WindowsXP Professional Ver.2002 SP2 (Microsoft .NET Framework 2.0 Configuration) Excel:Microsoft Office Excel 2007 言語:VB2005 SP1 参照先:Microsoft Excel 12.0 Object Library ****** プログラム ****** Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlBook As Microsoft.Office.Interop.Excel.Workbook Dim xlSheet1 As Microsoft.Office.Interop.Excel.Worksheet Try xlApp = CType(CreateObject("Excel.Application"),Microsoft.Office.Interop.Excel.Application) xlBook = CType(xlApp.Workbooks.Open("C:\File\OutPutSheet_1System.xls"),Microsoft.Office.Interop.Excel.Workbook) xlSheet1 = CType(xlBook.Worksheets(1),Microsoft.Office.Interop.Excel.Worksheet) ↓↓以下省略 (開放は行っています。)
- 締切済み
- shin817
- Visual Basic
- 回答数2
- 年末調整の生命保険料控除について
年末調整の際の生命保険料控除の件でお伺い致します。 当社の職員の配偶者が、企業年金に加入しており、契約者の氏名が旧姓になっております。 確か、控除になるのは、保険料を負担している者が所得者本人の場合だと認識していますが、間違いないでしょうか? この職員の場合、配偶者(奥様)の旧姓名義の口座より、保険料を負担しているようです。 この場合、当社職員の年末調整の保険料(年金)の控除には ならないと思うのですが・・・自信がありません。 又、もし、職員の年末調整には、反映されないとなった場合、配偶者の保険料はまったく、どこからも控除されないと いう事になるのでしょうか? 尚、この職員の配偶者の年収は0です。
- 25分で500円お返ししたいと考えています。
25分で500円お返ししたいと考えています 計算方法を教えて下さい。15分で1000円頂き500円お返しする場合いは、なん%になりますか、計算方法を教えて下さい。
- Excel表を集計するプログラム
A列に複数の項目(重複もあり)があります。B列に数字が入っています。 A列の項目で重複しているものはMergeします。 それと同時にB列に入っていた数字を合計したいと思っています。 [具体例] 処理前 → 処理後 AAA 1 AAA 7 BBB 3 BBB 7 CCC 4 CCC 4 BBB 4 DDD 2 DDD 2 AAA 5 AAA 1 こんな感じの処理をVBAでしたいと思っています。 教えてください。 よろしくお願いいたします。
- ベストアンサー
- A-boy
- Visual Basic
- 回答数4
- SQLにて列の値を一まとめにしてカウントできないでしょうか?
皆様はじめまして。SQL勉強中のものです。 本日はどうしても解決できないことがありますので質問させていただきます。 テーブルAにCONDITIONという列があり、そこには1~5の値が入ります。 このCONDITION列に1~5それぞれ何件あるかを取得したいと考えております。単純にcount関数にて1~5のレコード数を取得するならば以下のSQLで取得可能と思います。 SELECT COUNT(CONDITION) FROM A WHERE CONDITION = '1' 以上をWHERE条件を変えて5回繰り返し。 これだと5回SQLを発行することになります。 これを一回のSQLにて取得できないかと悩んでおります。 皆様、どうかよろしくお願い致します。
- ベストアンサー
- luvelysion
- SQL Server
- 回答数2
- カレンダーを作りたいんですが・・・
みなさん、はじめまして。 私、現在 カレンダーを作ろうと思っているのですが、 VB6.0で作ろうか、EXCELで作ろうか迷っています。 カレンダーの付加機能として、日付をクリックしたら、OutlookExpress が立ち上がる機能をつけたカレンダーを作ろうかと思っています。 どうしたら日付をクリックしたらOLEが立ち上がるのかの方法さえ わからない状態です。 どなたかわかる人がいればアドバイス御願いします。 よろしく御願いいたします。
- 締切済み
- feelwhite
- Visual Basic
- 回答数2
- データセットへの取得について
VB2005はじめたばかりです。 MDBからデータを抽出してデータセットへのところでエラーとなります。 Private Sub Button1_Click Dim dAdp As OleDb.OleDbDataAdapter Dim dSet As DataSet = New DataSet("t_社員") Dim cn As OleDb.OleDbConnection _ = New OleDb.OleDbConnection( _ "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=C:\VB2005\SampleDB.mdb;") dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM 社員 where 社員番号=>101", cn) dAdp.Fill(dSet, "t_社員") ★ここでエラーとなってしまいます。【where 社員番号=>101", 】をトルと正常となります。 恐れ入りますがご指摘いただけますでしょうか。
- ベストアンサー
- asahi55127
- Visual Basic
- 回答数4
- VB.NetでSQLServer2005に接続できません。教えてください。
はじめまして。初めて投稿します。 かなり困っているので、誰か助けてください。 内容はVB.Net2003を使用して、SQLServer2005に接続するときに 「SSPI コンテキストを生成できません」のエラーが発生してしまいます。 SQLServer2005をインストールしているのがサーバーではなく クライアント(プログラムを実行している端末)なので、 それが原因だと思うのですが、どうしてもその環境でしなくてはいけないので 何かご存知の方がおられるのなら、ご教示お願いします。 ソースは以下のとおりです。 ↓ Dim Scn As SqlClient.SqlConnection = New SqlClient.SqlConnection '接続文字列セット Scn.ConnectionString = _ "Server=""(local)"";Integrated Security=SSPI;database=" & データベース名 'dbオープン Scn.Open() ←このタイミングでエラーが発生
- ベストアンサー
- masa-1978
- SQL Server
- 回答数1
- バッチ処理に関して
こんばんは! バッチ処理のexeを作成しようと思っているのですが、 初心者なので、どう作成したらいいのかと悩んでいます。 1分おきにタイマー処理をしたいのですが、 今現在はループ内にsleepメソッドで1分待機させています。 でも、sleepはパフォーマンス上良くないと聞いたのですが、 どう良くないのでしょうか? また、他の方法で、タイマーコントロールでタイマー処理を するなら、フォームを隠すことは可能でしょうか? 最後に、上記の方法以外にもっと良い方法をご存知の方、 教えてください。 よろしくお願いいたしますm(_ _)m
- ベストアンサー
- system0001
- Visual Basic
- 回答数1
- MSDEへの接続
いつもお世話になって降ります。 早速ですがいろいろ検索しても答えにたどり着かないので質問させて頂きます。 WindowsXPHome+VB2005Express+MSDE2000の環境でVB2005からMSDEへの接続が出来ずに困っています。 VB2005ExpressからMSDE2000への接続は出来ないのでしょうか?
- 締切済み
- hoido
- Visual Basic
- 回答数1
- EXCELVBAでSQLserverからデータをひっぱってきてエクセルに表示させたい
EXCELVBAでSQLserverからデータをひっぱってきてエクセルにクエリの結果を表示させています。 クエリのコードが短い場合は問題ないのですが、 長くなると、時間切れのメッセージが出てうまくできません。 クエリ自体は長いですが、誤りはありません。 クエリが複雑すぎたり長すぎたりするとだめなのでしょうか。 ご教授ください。宜しくお願い致します。 *************エラーメッセージ*************** 実行時エラー'2147217871(80040e31)': 時間切れになりました。 ******************************************** Sub test() Const connstr = "Provider=sqloledb;" & _ "Data Source=サーバ名;Initial Catalog=DB名;UserId=ユーザ名;Password=パスワード; " Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strSQL As String strSQL = "SELECT …ここのクエリ文が長い…" conn.Open connstr rs.Open strSQL, conn Range("A2").CopyFromRecordset rs rs.Close conn.Close End Sub
- ベストアンサー
- smorgas030
- Visual Basic
- 回答数3
- ハローワークへの求人票を再度出したいとき
ごめんなさい。総務というカテゴリーがなかったので、こちらに質問させていただきます。 工場で総務を担当していまして、求人票の作成、取り下げも私が担当しています。 求人票を取り下げたいとき、「求人番号・・・・・・番の取り下げをお願いします」と電話しています。 取り下げた求人票を再び出したいとき、どのような言い回しが自然でしょうか? これまでは、「求人番号・・・・・・・番の復活をお願いします」といっていたのですが、復活って、生き物ではあるまいし、なんだかおかしいなぁと最近気になってしょうがありません。 私は、こういっているよ。というのを教えてもらえればありがたいです。
- タスクバーのファイル表示について
はじめまして、いつもお世話になっています。 エクセルマクロ初心者です。 エクセルマクロで、ファイル(データ入力.xls)を開いた時に他のファイル(data.xls)を開く記述をしました。 エクセルの「ウィンドウ」では両方ともファイルが開いている状態になっていますが、パソコン画面下部のタスクバー(ツールバー?)にデータ入力ファイルしか表示されません。 dataファイルも表示させたいのですが、表示は可能ですか? ちなみに、エクセルを起動させてから初めてファイルを開くと表示させず、エクスプローラやエクセルが起動している状態でファイルを開くと表示されます。 どう記述すれば確実に表示されますか? どなたかご教授下さい。よろしくお願いします。 エクセル2003です。 --------標準モジュール---------------- Public myFile Public myPath As String Public myYNO(121795) As String Public myYAD(121795) As String Public myNO As String Public myAD As String Public KenData As String --------This Workbook----------------- Private Sub Workbook_Open() Application.ScreenUpdating = False myPath = ActiveWorkbook.Path myFile = ActiveWorkbook.Name Workbooks.Open Filename:=myPath & "\data.xls" i = 0 KenData = myPath & "\ken_all.txt" Open KenData For Input As #1 Do Until EOF(1) i = i + 1 Input #1, myNO, myAD myYNO(i) = myNO myYAD(i) = myAD Loop Close #1 Workbooks(myFile).Activate Sheets("menu").Select Range("E2").Select Application.ScreenUpdating = True End Sub
- ベストアンサー
- mikan630
- Visual Basic
- 回答数3
- 倒産するかもしれないのに動かない社長
私が経理として働いている会社ですが、今年に入ってから売上もほとんどなく資金も底をついてきて銀行への返済もできなくなるような状態なので、経費削減とか売掛金回収に力を入れる等いろんな案を社長に提案しているのですが、社長が全く動いてくれません。毎日会社にきてインターネットばかり見ています。小さい会社ですので、社長の意見が絶対です。社長が動くなり指示してくれなければ、私たちは働けません。でも、今回はこのままだと確実に倒産しそうなのです。どうすれば社長が倒産しないために動きだしてくれるのでしょうか。それとも、社長の指示がないのだから、このまま黙って倒産していくのをただ見ているしかないのでしょうか。ちなみに、私は先月の給料は出ておりません。
- エクセルVBAでボタンを作ったシートとVBAを実行するシートを変えたい
シート1にボタンを作成し、 そのボタンを押すと実行するVBAを作成しました。 そこで、VBAを実行するシートの指定はできるのでしょうか。 例えば、ボタンを押すと、 10行から20行まではシート2で実行させ、 30行から40行まではシート3で実行させたいと考えています。 可能でしょうか。 どうぞ宜しくお願いします。 *********************************************** 作成したVBA。ボタンはシート1にあります。 *********************************************** Private Sub CommandButton1_Click() *********************************************** ここからはシート2で実行させたい *********************************************** Range("E2").Select ActiveCell.FormulaR1C1 = "10" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault Range("E2:E101").Select *********************************************** ここからはシート3で実行させたい *********************************************** Range("A2").Select ActiveCell.FormulaR1C1 = "100" Range("A2").Select Selection.AutoFill Destination:=Range("E2:E101"), Type:=xlFillDefault Range("A2:A101").Select End Sub
- ベストアンサー
- smorgas030
- Visual Basic
- 回答数2
- どのような構成にすればよいか?
初めて投稿します。 リュウちゃんです。 とあるツール作りで困ってしまってます。 データの検索ツールを作成することになってます。 内容は、インターフェイスがあり、そこに打ち込んだキーをもとにして、内蔵しているデータベースから値を引っ張ってきて表示するというものです。 このパッケージ(ツールとデータ)をお客さんに配るというものなのですが、当初、エクセルベースのデータにしてVBAでインターフェイスとロジックを作成しようとしたのですが、データ量がエクセルで1G以上であり断念しました。そこでAccessベースにしようとしても、お客さんがAccessをインストールしていない方が多くこれも断念してます。 そこで、VBでインターフェイスとロジックを組み、データについては何か違う方法で持たせたいと思ってます。 ちなみに、このデータは外部から見られないようにしたいと思ってます。(テキストベースだと丸見えなので) 根本的に考え方が間違っているかもしれませんが、良い知恵がありましたらご教授下さい。
- ベストアンサー
- ryuuchan77
- Visual Basic
- 回答数3
- Excelについて
Excelについて質問です。 例えば =SUM(A1:D1)の値をE1に出すという場合 A1+B1+C1+D1=E1 になると思うのですが C1をE1から引きたい場合はC1の数値に-を入れる以外に なにか方法は無いでしょうか。 例えばCの列に入力する数字には自動的に頭に「-」がついたり C列は最初からマイナスとして認識させるような・・・。 初心者丸出しの質問で申し訳ないです・・・。
- ベストアンサー
- Curio_sity
- 会計ソフト
- 回答数3
- SSMSEを使ったクエリ結果をエクセルで出力したい
SSMSE(SQLServerManagementStudioExpress)を使用してクエリを作成し、問題なく結果が出ました。そのデータをエクセルなどで出力する方法はあるのでしょうか。現在はコピペでやっています。宜しくお願いいたします。
- ベストアンサー
- smorgas030
- SQL Server
- 回答数6
- SSMSEを使ったクエリ結果をエクセルで出力したい
SSMSE(SQLServerManagementStudioExpress)を使用してクエリを作成し、問題なく結果が出ました。そのデータをエクセルなどで出力する方法はあるのでしょうか。現在はコピペでやっています。宜しくお願いいたします。
- ベストアンサー
- smorgas030
- SQL Server
- 回答数6