質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

Q&A

解決済

1回答

385閲覧

Excelファイルのワークシートを新規ファイルにコピーし、新規ファイルを編集する

nekoyama771

総合スコア29

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

0グッド

0クリップ

投稿2022/08/02 10:49

件名の作業を行いたいと思っています。
新規ファイルは未作成で、本VBS実行中に作成します。
どう変更したらよいでしょうか。
よろしくお願いします。

エラーメッセージ
Windows Script Host
スクリプト: C:\A\ddd.vbs
行: (下記エラー箇所)
文字: 1
エラー: 型が一致しません。: 'workbook'
コード: 800A000D
ソース: Microsoft VBScript 実行時エラー

VBS

1'Excelファイル読込 2Set objExcel = CreateObject("Excel.Application") 3Dim wkbFileName 4wkbFileName = "C:\a\hinagata.xlsx" 5Dim wkb 6Set wkb = objExcel.Workbooks.Open (wkbFileName) 7 8'新規ブックに一番左の1シートをコピーし、変数wstにセット 9Dim ws 10wkb.Worksheets(1).Copy workbook("C:\a\shuturyoku.xlsx") ←←エラー 11Set wst = objExcel.Activesheet 12 13'ファイルを閉じる 14wkb.Close False 15 16'コピーしたシートを編集する処理 17 18'ファイルを閉じる 19wst.Parent.Close

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

'新規ブックに一番左の1シートをコピーし、変数wstにセット Dim wst wkb.Worksheets(1).Copy Set wst = objExcel.ActiveSheet wst.Parent.SaveAs "C:\a\shuturyoku.xlsx"

投稿2022/08/03 09:30

jinoji

総合スコア4585

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nekoyama771

2022/08/03 10:01

ありがとうございます。できました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問