OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

VBSからのエクセル操作

  • 困ってます
  • 質問No.148801
  • 閲覧数654
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 64% (681/1059)

エクセルでテキストファイルを開く作業をVBSで自動化したいのですが、下のスクリプトが上手く動作しません。どうすれば上手いこと動くように出来るでしょう?
OpenTextのVBS上での使用法がポイントだと思うんですが。

Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.OpenText "hoge.txt", ,1, xlDelimited, xlDoubleQuote, False, False, False, False, False, True, ":", Array(1, 1)
objXL.Visible = True
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

VBSは余り使ったことはありませんが、VBAのつもりで考えてみました。
以下のようにしたら動きましたが、フルパスにして拡張子をCSV(xlDelimitedなので)にしています。TXTのままではセルに分割されませんでした。

『True, ":", Array(1, 1) 』では、
  『:』も区切り記号として使いたい?(どうするか不明)
  最初の項目を一般の形式に指定?他は指定していないのでやはり一般の形式?
ということで、消去して動かしてみました。
やはり詳しくないため不明な点が多いです。(windows98、Excel2000です) ご参考に。

Dim objXL
xlDelimited=1
xlDoubleQuote=1
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.OpenText "D:\・・・\・・・\hoge.csv", ,1, xlDelimited, xlDoubleQuote, False, False, False, False, False
objXL.Visible = True
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ