先ほどの投稿ですが、 append mode と Abeさんが書いて下さってるじゃないか、 と気づきまして Open "C:¥ユーザー¥Sage¥デスクトップ¥TestFile.txt" For Output As iCount を Open "C:¥ユーザー¥Sage¥デスクトップ¥TestFile.txt" For Append As iCount と修正して実行してみましたが、 何も結果は変わりませんでした・・・ ううむ・・・
Mutou Sage 2016年1月10日 16:28 Mutou Sage <mutous...@gmail.com>: > Abeさん > 早速回答いただきましてありがとうございます。 > > オフィスソフトのマクロは初体験でして > まずはテストをしようとしたのですが・・・ > http://www.slideshare.net/78tch/lib-o-basic > このスライドを参考にしながら > https://help.libreoffice.org/Basic/Write_Statement_Runtime/ja > に置いてある例の出力ファイル名だけ変えて > > REM ***** BASIC ***** > Sub ExampleWrite > Dim iCount As Integer > Dim sValue As String > iCount = Freefile > Open "C:¥ユーザー¥Sage¥デスクトップ¥TestFile.txt" For Output As iCount > sValue = "Hamburg" > Write #iCount,sValue,200 > sValue = "New York" > Write #iCount,sValue,300 > sValue = "Miami" > Write #iCount,sValue,450 > Close #iCount > End Sub > > という内容にしたマクロを作成しました。 > そして、Open文はファイルを自動的に作らないようでしたので > TestFile.txt というファイルをデスクトップ上に作成してから、 > このマクロを実行してみました。 > しかし、実行後に > TestFile.txt > の中身を見てみても何も書き出されていません。 > 初歩的と思われることで申し訳ないのですが、 > どのようにすればきちんと書き出されるようにできるでしょうか？ > よろしくお願いします。 > > Mutou Sage > > > > 2016年1月10日 8:32 Takeshi Abe <t...@fixedpoint.jp>: > >> Mutouさん >> >> >> On Sat, 9 Jan 2016 23:24:35 +0800, Mutou Sage <mutous...@gmail.com> >> wrote: >> > DDE関数から得られている値がリアルタイムで表示されているセル >> > （B3,B4が目的のセルとします） >> > の内容を >> > >> > # B3,B4 >> > 5,8 >> > 18,3 >> > 4,23 >> > (続く) >> > >> > といった感じに、たとえば１０秒おきなどと時間感覚を定めて >> > csvファイルの中に連続して書き出させていくにはどうすればよろしいでしょうか？ >> BASICマクロでやろうとするなら、append modeでターゲットのCSVファイルをOpen[1] >> して、Write[2]でセルの値を書き出し、10秒間待つためにWait[3]を使うことで実現 >> できるのではないでしょうか。 >> >> [1] https://help.libreoffice.org/Basic/Open_Statement_Runtime/ja >> [2] https://help.libreoffice.org/Basic/Write_Statement_Runtime/ja >> [3] https://help.libreoffice.org/Basic/Wait_Statement_Runtime/ja >> >> -- Takeshi Abe >> > > -- Unsubscribe instructions: E-mail to users+unsubscr...@ja.libreoffice.org Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/ja/users/ All messages sent to this list will be publicly archived and cannot be deleted
