メール送信2

gettime()

title="テキスト"+G_TIME_MM+"テキスト"+G_TIME_DD

path="C:\Users\user\Desktop\aaaaaa.xlsm"

Dim o_XL = CreateOLEObj("Excel.Application")
Dim o_WB = o_XL.WorkBooks.Open(FileName := path, ReadOnly := False)

o_XL.Visible  = TRUE
o_XL.DisplayAlerts  = FALSE

r_fp="C:\Users\user\Desktop\a.txt"
w_fp="C:\Users\user\Desktop\a.txt"

Dim ID_f	= FOpen(r_fp)
str= FGet(ID_f, F_ALLTEXT)
FClose(ID_f)

from="$1"
from1="$2"

str=chgmoj(str, from, G_TIME_MM)
str=chgmoj(str, from1,G_TIME_DD)

ID_f = FOpen(w_fp, F_READ or F_WRITE8 or F_NOCR)
FPut(ID_f, str, F_ALLTEXT)
FClose(ID_f)

o_XL.range("b5").value=title

o_XL.range("b6").value=str

o_XL.run("sheet1.abc")

関連情報:

  1. uwscファイル作成
  2. 便利な関数
  3. FCLOSE
  4. ファイル書き込み
  5. 大量のファイルを処理したい

このエントリーを含むはてなブックマーク Buzzurlにブックマーク Yahoo!ブックマークに登録

コメント

コメントは受け付けていません。

このページの先頭へ