[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『xbrlをcrvに変換するソフトについて』（ゆうこ）
幅広い質問の投げ方ですみません
説明がエクセルから離れているのかもしれませんが…
ご意見お願いします
edinetのホームページにある、
xbrlのcsv変換ソフトを使っています
これが、1件ずつの作業なので
こちらをエクセルで再現し、数件まとめてできないか
もしくは、センドキーで繰り返す
を考えています
少し試したのですが、センドキーでは
フォーカスが当たったり当たらなかったりの状態
エクセルで再現できるのかな？
フリーソフトなどあるのかな？
といったところで、立ち止まっています
何かよい情報ありましたら教えてください
＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
実際どういうものかわかりませんが、検索すると こういうのも有りました （稲葉） 2015/03/12(木) 07:13
または、連続変換したい、という要望を、ツール提供元に投げてみては？
（???） 2015/03/12(木) 09:17
こういうものを使ってはどうだろうか？ （ねむねむ） 2015/03/12(木) 09:19
稲葉さん
TeCA Webは(簡単にですが）確認したことがあるのですが
TeCA WebでのCSV出力と
EDINETのCSV変換と結果が違うんです…
CSVファイルの受側のソフトが決まっているので
同じCSVでも結果が違うとNGなのです
???さん
完全にVBAに任せてしまうのではなく、
作業軽減でもできればと考えております
>ダイアログも操作しないといけないし、最低限DoEventsを入れつつ、 >できればSleepも使いつつ、SendKeysを使ってはどうでしょうか。 おっしゃるように考えていました 不安定なのでいちおうﾊﾟｿｺﾝの前に張り付いていないといけなさそうではありますが、 軽減はできるかと…
エクセル画面に、xbrlファイルのﾊﾟｽをセルごとに入れておいて
実行ボタンを押すと
ﾊﾟｽをCtrl+Cでｺﾋﾟｰし
SendkeysのTabで必要な項目に移動し、Ctrl+Vでﾊﾟｽを貼り付け
などといった流れで作っていましたが
Ctrl+Vで張り付かない状態です
（カーソルは必要な場所にあるのですが、ﾊﾟｽが張り付かない）
（別ﾊﾟｿｺﾝですので、手入力しました。間違いがあればすみません）
Sub CmdCSV変換_Click()
workbooks("Book1.xlsm").worksheets("Sheet1").cells(1,5).copy
waittime=now+timevalue("0:00:10")
application.wait waittime
’この間に、csv変換ツールの画面をクリックし前面に出す
sendkeys "{Tab2}"
waittime=now+timevalue("0:00:10")
application.wait waittime
sendkeys "^V" application.wait waittime
EndSub
ねむねむさん ありがとうございます
すみません、現状シェアウェアは考えておりませんでした
しかし貴重な情報ありがとうございました
（ゆうこ） 2015/03/12(木) 14:24
シェアウェアなのは上位版（いくつかの機能が追加された物）の「UWSC Pro」で「UWSC」そのものは無料。 （ねむねむ） 2015/03/12(木) 14:30
これだと、2回目の時間指定は1回目と同じになるので、待ち時間0ですよ〜。
（???） 2015/03/12(木) 14:35
Range("E1").Copy
SendKeys "{Tab}{Tab}^V{Tab}{ENTER}"
waittime = Now + TimeValue("0:00:02")
Application.Wait waittime
…
（???） 2015/03/12(木) 15:01
ret = .Run("C:\Public\XBRLtoCSVTool.jnlp", 7, True) 'アプリケーションURL
End With
waittime = Now + TimeValue("0:00:10")
Application.Wait waittime
SendKeys "{Tab 2}"
waittime = Now + TimeValue("0:00:01")
Application.Wait waittime
SendKeys "^v", True
End Sub
（デイト） 2015/03/12(木) 15:04
WEBのアプリとして作ってみました。
CSVにできればあとは科目のリストと結合してRDBにできます。
ご参考までに。
（gotahati） 2015/07/20(月) 16:21
教えてください
SendKeysで Ctrl+C でコピーし Ctrl+Vでパスを張り付けるところまでは出来ました
しかし、張り付けた後を確認すると
C:\〜〜〜.XBRL＿ ←最後に半角スペースが張り付きます
cells(1+i.5)に書いてあるパスには、半角スペースはないので マクロのSendkeysが原因なのか？と思うのですが…
追及する方法が見当たらないのと もし、原因がわかったり前例があった場合 対処法を教えて頂ければ助かります
Option Explicit
Sub CmdCSV変換_Click()
Dim i As Integer
Dim waitTime As Variant
Dim Str変換後フォルダ As String
i = 1
Workbooks("csv変換.xls").Worksheets("Sheet1").Cells(1 + i, 5).Copy
'ここで手動でCSV変換ツールをアクティブにする
waitTime = Now + TimeValue("0:00:05")
Application.Wait waitTime
SendKeys "^v", True
SendKeys "{Tab}"
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
SendKeys "{Tab}"
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Workbooks("csv変換.xls").Worksheets("Sheet1").Cells(1 + i, 6).Copy
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
SendKeys "^v", True
SendKeys "{Tab}"
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
SendKeys "{Tab}"
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
SendKeys "{Enter}"
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
End Sub
（ゆうこ） 2015/12/28(月) 11:54
何度か試してみましたが、 手動でも CTRL+C と CTRL+Vをすると 最後に半角スペースが付くので エクセルのセルから、コピペするとそうなるということで…
どうなんかなぁと思う対処法ですが CTRL+Vをしたあと、 SendKeysでバックスペースを一つ送ることで回避します （ゆうこ） 2015/12/29(火) 15:59
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.