デスクトップ上にワークシートが1枚だけのExcelファイルがあります。

ダイアローグボックスを出してそこに文字数字を入れるとワークシートのタブ名と
あるセル(たとえばB3)にその文字が入力されるようなVBS1を作りたいのですが
どう書いたら良いのかわかりません。
お分かりの方サンプルを提示願います。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2008/04/08 14:58:40
  • 終了:2008/04/09 09:48:55

ベストアンサー

id:aside No.1

aside回答回数339ベストアンサー獲得回数312008/04/08 15:52:44

ポイント60pt

http://q.hatena.ne.jp

c:\test.xlsに対しての処理

val = inputbox("値を入力してください?","入力")
Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Open("c:\test.xls")
Set xlSheet = Excel.Worksheets(1)
xlSheet.Name = val
xlSheet.Cells(3, 2).Value = val
Excel.Save
Excel.Application.Quit
msgbox val & "が入力されました"
  • id:aside
    ↑だと環境によってよけいなダイアログがでるそうなので
    ↓のがよりオススメらしいです

    val = inputbox("値を入力してください?","入力")
    Set xlApp = CreateObject("Excel.Application")
    'ファイルオープン
    Set xlWkb = xlApp.WorkBooks.Open("c:\test.xls")
    'シート選択
    Set xlWsh = xlWkb.WorkSheets(1)
    'シート名変更
    xlWsh.Name = val
    'B3へ出力
    xlWsh.Cells(3, 2).Value = val
    '保存
    xlWkb.Save
    xlWkb.Close
    xlApp.Quit
    msgbox val & "が入力されました"

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません