[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/01/26(Wed) 10:43
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: Excelへの書き込み
> マルチポストですが、期限が今週中で困ってますので、
> お願いします。

初めての投稿では無いようなので、ここのサイトの趣旨はご存知かと思うので、あえて

　hhttp://www.geocities.co.jp/SiliconValley/5634/t82DC_0005.html#2745

　hhttp://www.geocities.co.jp/SiliconValley/5634/t82DC_0005.html#555　

>ワトソン博士に引っかかります
私は使っていないし、同じ環境でないので解りませんが。
何かメッセージはでないのですか？
投稿されたコードだけでも現象は起きるのですか？
呼び出すExcelのファイルを新規の何も書いていないファイルを読み込んでも
起きるのですか？
（使用しているファイルにマクロが含まれていたり）

起きるOSと起きないOSの環境の違いは？
詳しい状況を書かないと他の人では判断できないのでは。
(カムリンさん程の人が解らないのですから)

# 因みに、マルチポスト先は？

投稿時間：2005/01/27(Thu) 09:05
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：やはり
やはり、そう言う人だったのですか？　がっかりしました。
会社の看板を背負って投稿していると言う事をお忘れなく。

投稿時間：2005/01/27(Thu) 10:24
投稿者名：INA
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: Excelへの書き込み
> # 因みに、マルチポスト先は？
既にご存じかもしれませんが、一応載せておきます。
hhttp://www2.moug.net/app/bbs/message.php?cat=exvba&id=20050126-000004

投稿時間：2005/02/02(Wed) 13:08
投稿者名：カムリン
Ｅメール：
ＵＲＬ　：
タイトル：済み
どうも・・・

投稿時間：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

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