http://oshiete.goo.ne.jp/qa/2991655.html
上記のリンクに従い、
auto_input_pw.vbsを c:\に置きます。
その上で、
\\sereve\folder 1\excel.xls サーバ上のxlsファイルを開くバッチを作りました。
--
cd c:\
cscript c:\auto_input_pw.vbs "\\sereve\folder 1\excel.xls" pass
--
というものですが、
これを
cscript c:\aa\auto_input_pw.vbs "\\sereve\folder 1\excel.xlsx" pass
と単純に書き換えたのですが、うまくいきません。
プロパティでみてもexceと関係付けられているのですが・・・
あと、このバッチを応用して任意のファイルを開けないでしょうか
auto_input_pw.vbsがルート直下に沖、
という状態で環境変数を使い、すべてサーバーも端末含めたドライブで同じパスワードをはずせるようにするには環境変数を使えばよいはずなので。
cscript c:\auto_input_pw.vbs "%dp1\*.xls" pass
としましたがうまく起動しません。環境変数がまちがっているのでしょうか。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
例えば下記のようなVBSファイルを作成し
開きたいファイル(複数可)をこのファイルにドラッグ・ドロップするか
あるいは
自身のSendToフォルダへ下記VBSファイルを置いておき
Excelファイルを右クリックすると『送る』の中の一覧にVBSファイルが
有りますので選択すると開けるハズです。Win7 & Excel2010 で検証。
なお、
パスワードを設定していないファイルをパスワードの指定して開いても
エラーにはなりません。\(^o^)/
Workbooks.open のメソッドのオプションについてはヘルプで確認し
使いやすいように変更してください。
>cscript c:\auto_input_pw.vbs "%dp1\*.xls" pass
は多分、for in do ナントカでやらないとダメだと思います。
Dim oXL
dim colArg
dim strArg
dim pwd
pwd = "ppp" 'ここは適当に変更
Set oXL = CreateObject("Excel.Application")
Set colArg = WScript.Arguments
For Each strArg in colArg
oXL.Workbooks.Open strArg, False _
, , , pwd _
, pwd _
, True _
, True
Next
oXL.Visible = True
oXL.UserControl = True
msgbox "開いたよ~見てみて"
No.1
- 回答日時:
バッチファイルをダブルクリックしてvbsファイルを起動してExcelファイルを開く・・・って
回り道をせずvbsファイルをダブルクリックで開くようにすれば
Option Explicit
Dim objDialog
Dim Ret
Dim myFile
Dim objExcel
Dim strPassword
Set objDialog = CreateObject("UserAccounts.CommonDialog")
With objDialog
.Filter = "Excelファイル|*.xls; *.xlsx; *.xlsm"
.InitialDir = "\\sereve\folder 1"
Ret = .ShowOpen
End With
If Ret = 0 Then
Msgbox "キャンセルしました。"
Wscript.Quit
Else
myFile = objDialog.FileName
End If
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
'パスワードを設定
strPassword = "1234"
objExcel.Workbooks.Open myFile,,,,strPassword
Set objDialog = Nothing
Set objExcel = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Microsoft ASP C#からvbsを実行したい 5 2022/11/24 17:31
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- その他(Microsoft Office) office2010とoffice365の共存でoffice365を優先で起草させたい 3 2023/01/24 10:47
- Visual Basic(VBA) VBS Bookを閉じるコード 1 2023/02/16 17:31
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- XML エクセルの拡張子XLSのファイルが開けなくなった 3 2022/10/19 11:30
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Latexで図番号だけを「図1.1」...
-
#include <Windows.h>というヘ...
-
公文書のxmlファイルの開き方が...
-
アクセス 壊れた? 「ファイ...
-
参照するファイルをワイルドカ...
-
Word VBA MSGBOX 内で降順表示
-
C言語---ファイルに出力したデ...
-
ラッパーって何なんでしょう・...
-
.NETアプリを作ったときの .man...
-
エクセルファイルが複数同時に...
-
binファイルを解凍したいの...
-
warファイルをEclipseでプロジ...
-
自分で作成した重要ファイルを...
-
他のMDBのマクロを実行する方法
-
ハイパーリンクされたJPGファイ...
-
jarファイル
-
「ブルーファイル」と「グリー...
-
実行ファイル(.exeファイル)...
-
コマンドプロンプトで作成日時...
-
exeファイルをデータ転送サービ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneでXMLファイルを開くには...
-
公文書のxmlファイルの開き方が...
-
binファイルを解凍したいの...
-
アクセス 壊れた? 「ファイ...
-
.NETアプリを作ったときの .man...
-
リンクの張り付けかたを教えて...
-
#include <Windows.h>というヘ...
-
jarファイル
-
Seasar2のdiconファイルの読み方
-
Word VBA MSGBOX 内で降順表示
-
監視ツールを入れさせられまし...
-
CSSを1ページに1枚作るのって変...
-
コマンドプロンプトで、指定し...
-
ファイルが開かれているかどう...
-
exeファイルをデータ転送サービ...
-
パイソンでpy ファイルと p...
-
exeファイルの中身を見る方法は...
-
Latexで図番号だけを「図1.1」...
-
参照するファイルをワイルドカ...
-
バッチ処理で追記コピーしたい
おすすめ情報