lark_0925のプロフィール

@lark_0925 lark_0925
ありがとう数56
質問数0
回答数90
ベストアンサー数
37
ベストアンサー率
63%
お礼率
0%

  • 登録日2008/01/03
  • ACCESSVBAからEXCELのSubステートメントの実行

    ACCESSの標準モジュールに Sub アクセス() Call エクセルのsubステートメント End Sub と書き、 EXCELの標準モジュールに Sub エクセルのsubステートメント() MsgBox "成功！" End Sub と書いています。 アクセス側からエクセルのマクロを実行するのはどうすればいいのでしょうか？ ご教授よろしくお願いします。

  • ACCESSVBAからEXCELのSubステートメントの実行

    ACCESSの標準モジュールに Sub アクセス() Call エクセルのsubステートメント End Sub と書き、 EXCELの標準モジュールに Sub エクセルのsubステートメント() MsgBox "成功！" End Sub と書いています。 アクセス側からエクセルのマクロを実行するのはどうすればいいのでしょうか？ ご教授よろしくお願いします。

  • EXCEL　VBAについて、ワークシート上に置いたTextBoxに値を入れる方法について

    すいませんEXCEL VBAについて質問があります。 エクセルのワークシート上にコントロールツールボックスから テキストボックスを２つ、コマンドボタンを１つ設置する。 アクティブになっているテキストボックスに”goo”という値を入れる。 これをVBAで処理するにはどうしたらよろしいのでしょうか。 ユーザーフォームのテキストボックスであれば Private Sub CommandButton1_Click() Dim i As Object Set i = ActiveControl If TypeOf i Is MSForms.TextBox Then i.Text = i.Text & "goo" End If Set i = Nothing End Sub これでできるはずですが、シート上に置くテキストボックスだと うまくいきません。 よろしくお願いいたします。

  • EXCEL VBAでプリンタの設定方法について

    EXCEL　VBAのプリンタの設定方法について質問があります。 Dim oApp As Object Dim WFM As Strin WFM = "\\Cl111\フォルダ\ファイル\" &Range("C3").Value & ".doc" Set oApp = CreateObject("Word.Application") 　’ワード起動 oApp.Visible = True oApp.Documents.Open WFM 　’文書を開く Application.ActivePrinter = "AAA on Ne00:" 　’プリンタ設定 oApp.activedocument.PrintOut Copies:=1, Background:=False　 ’印刷 oApp.Quit SaveChanges:=False 　’ワード終了 Set oApp = Nothing このようなコードで、(1)ワードを開き、(2)プリンタを設定し、(3)印刷をする、という作業をしたいのですが、 Application.ActivePrinter = "AAA on Ne00:" ではプリンタの設定が変わらず、通常使うプリンターで印刷がされてしまいます。 ワードを開いて印刷することで何か特殊なコードが必要なのではないかと思うのですが、調べても該当するものが出てきませんでした。 どうぞよろしくお願いいたします。

  • ExcelのワークシートをVBAで削除する方法

    Excelのオブジェクトを作り、ワークブックを作りワークシートを１つだけ作り、ワークシートの名前を"abc"にするにはどうしたらよいでしょうか？ x=CreateObject("Excel.Application") y=a.Workbooks.Add z=y.Worksheets(1) をやると、シートがExcel標準の3シートつくられます。ここまでは理解できるのですが、上記のsheet1の名前を変更。残りのsheet2,sheet3を削除するにはどうしたらよいでしょうか？

もっと見る