投稿日	： 2005/01/26(Wed) 12:26
投稿者	： ぬき
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Excelへの書き込み

★ - Excelへの書き込み - カムリン 01/26-09:22No.1757
> マルチポストですが、期限が今週中で困ってますので、
> お願いします。
> OSがXPでExcelが2000と2003の時は問題なく動きます。
> OSがNTでExcelが2000の時に下記の処理で、
> ワトソン博士に引っかかります。
> どうすればいいでしょうか。
> ワトソン博士を止める以外でお願いします。
>
>
> Dim XLAPP As Excel.Application
> Dim XLBooK As Excel.Workbook
> Dim xlSheet As Excel.Worksheet
> Dim kurikosi As String
> Dim makedate As Date
>
> Set XLAPP = CreateObject("Excel.Application")
> Set XLBooK = XLAPP.Workbooks.Open(App.Path & "\AAA.xls")
> Set xlSheet = XLBooK.Worksheets(1)
>
> makedate = CDate(Text1(0) & "/" & Text1(1) & "/" & T
ext1(2))
> kurikosi = Trim(Text1(3))
>
> xlSheet.Cells(2, 4) = makedate
> xlSheet.Cells(2, 2) = DateAdd("d", -1, xlSheet.Cells(2, 4))
> xlSheet.Cells(2, 3) = kurikosi
>
> xlSheet.Application.DisplayAlerts = False
> xlSheet.SaveAs (App.Path & "\AAA.xls")
>
> XLAPP.Quit
> Set xlSheet = Nothing
> Set XLBooK = Nothing
> Set XLAPP = Nothing

投稿者削除になる前に保守

★ - 投稿者削除 Excelへの書き込み - カムリン - カムリン 01/26-09:22No.1757
• Re: Excelへの書き込み - 花ちゃん 01/26-10:43 No.1763
  • やはり - 花ちゃん 01/27-09:05 No.1784
  • Re^2: Excelへの書き込み - INA 01/27-10:24 No.1786
  • 済み - カムリン 02/02-13:08 No.1918
• Re: Excelへの書き込み - ぬき 01/26-12:26 No.1764