ドロップシッピング始めました!
お小遣いほしさに始めたので、これから頑張っていきます!
comments(0), trackbacks(0), - -
出力先 = "C:¥test.html" Dim ADOobj Set ADOobj = CreateObject("ADODB.Stream") 'ADOのストリームオブジェクトを用意 ADOobj.Charset = "UTF-8" '出力する文字コード ADOobj.Open 'オープン ADOobj.WriteText "出力したい文字" & vbLf '出力する部分 ADOobj.WriteText "出力したい文字" & vbLf ADOobj.SaveToFile 出力先, 2 '1:追加モード、2:上書きモード ADOobj.Close 'クローズ Set ADOobj = Nothing '解放
comments(0), trackbacks(0), - -
| 1/1PAGES |