Access95のcsvファイルへのエクスポートで困っています。助けてください。

あるテーブルをTransferTextメソッドを使ってcsvファイルにエクスポートしています。
すると、csvファイルは指定したホルダの中に指定した名前できちんとできるのですが、
指定したホルダの中にcsvファイル以外に「export.ini」というファイルが勝手にできて
しまいます。「export.ini」のサイズは0バイトで中には何も書かれていません。

この「export.ini」の役目と、このファイルを作らなくする方法をご存じないでしょうか?

よろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

いま手元にあるACCESSは97と2000なので、違ってたらごめんなさい。



Export.ini はエクスポートする際の「書式」の保存のためのファイルでしょう。

2000で[エクスポート]を選択して形式をテキストにしたら
「書式を保存する」チェックボックスが存在します。

だから「書式の保存は不要」の指定を行えばExport.iniは作成されなくなるでしょう。

方法については・・・、ごめんなさい!。

この回答への補足

手動でエクスポートさせると「書式を保存する」のチェックの有無によらずexport.iniは作成されないのですが、
例えば"sampletable"というテーブルを、デスクトップに"test.csv"という名前で保存しようとして、
モジュールの中で

 DoCmd.TransferText acExportDelim, , "sampletable", "c:\windows\デスクトップ\test.csv"

と記述して実行させた場合に発生してしまいます。
書式を保存しないように設定する命令はありませんでしょうか?

補足日時:2002/01/12 00:42
    • good
    • 0
この回答へのお礼

早速の回答、ありがとうございます。

お礼日時:2002/01/12 00:43

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q皮下埋め込み型ポート

皮下埋め込み型ポート

母が、週に1~2度の点滴を受けています。
高齢の母の血管は細く、何度も針を入れ直します。
先生から皮下埋め込み型ポートをするよう進められました。
27日に、手術を受ける事になりました。
手術の同意書には、怖い事が書いてありました。
致命的であったりします。と書いてあります。
点滴の際、何度も針を刺すのはかわいそうですが、
このままにしておこうかとも考えています。
この手術は、そんなに危ないものですか。

Aベストアンサー

当方の知る限り、一般的な静脈点滴用の埋め込みポートは、致命的ではありません。
しかし、責任逃れのため、非常に小さな医療行為であっても、患者の親族の同意書を取りたがる医療機関が存在すると思います。
絶対的な緊急性がないのなら、その埋め込みポートのリスクをきっちり調査されるまではペンディングでも良いのではないでしょうか。
逆に、本当に緊急性が高いものであれば、医療機関は自主判断でその医療行為を行っていると思います(親族の同意無しに)。

QAccess VBA ダイアログ指定 CSVエクスポート

お世話になります
CSVファイルをAccessにインポートしたいのですが。

■検索ボタンクリック→ダイアログBOXでファイル指定→
選んだCSVファイル場所をテキストボックスに保存→
確認ボックス→はい→インポート開始
と言う具合が理想ですが可能ですか?

■また、実行中、待ち時間インジケータでインポートの進捗状況を
把握したいのですが

ちなみにファイル名、ワークシート名は毎回異なりますが列名は同じです。
判る方ご教授お願いします。

Aベストアンサー

インポート定義が保存されていないようですが。

とりあえず
Private Sub 実行_Click()
  'TextConv Me.テキスト1, "テーブルA", "テーブル1"
  TextConv Me.テキスト1, "", "テーブル1"
End Sub
にすれば、インポートは出来ます。

インポート定義ができたら、その名前にしてください。

> ■全データ削除ではなく追加していきたい

'テキストコンバートルーチン
Sub TextConv(strFle As String, strInp As String, strTbl As String)
  If MsgBox("インポートしますか?", 4, "実行確認") = vbYes Then
    DoCmd.TransferText acImportDelim, strInp, strTbl, strFle, True
    '1行目がヘッダーなら、最後の TRUE が必要です。
    MsgBox "テーブルデータを更新しました"
  End If
End Sub

> ■CSVには不要な列もある
ということであれば「インポート定義」は必須です。
もう一度、
手動で、ファイルメニューから
[外部データの取り込み] - [インポート]
ファイルの種類でテキストファイルを選択し、
「Table.csv」を選択してインポートをクリック。
以下、ウィザードの画面で
「区切り記号付き」を選択して「次へ」をクリック。
「フィールド区切り記号」を「カンマ」、
「先頭行をフィールド名として使う」にチェック、
ここで 「設定」ボタンをクリックして、インポート定義の画面に。
必要なら、フィールド名を書き換える。
(CSV の ヘッダとテーブルのフィールド名が異なる場合など)
必要ならデータ型を書き換える。
(0001 というコードが数値にされてしまうと困る場合など)
インポートしないフィールドは「スキップ」欄にチェックする。
ここで 「保存」ボタンをクリック。
必要なら「定義名」を書き換えて、「OK」をクリック。
定義名は忘れないでメモしてね。
デフォルトで表示される名前には、スペースが含まれているので注意。
「OK」をクリックして、インポート定義の画面に。
「OK」をクリックして、ウィザードに戻る。
あとは、次へでインポートを続けても、キャンセルでも結構です。

インポ-ト定義に不具合があるようなら、
再度、手動でインポートし
インポ-ト定義画面で、「定義」ボタンを押せば呼び出せます。
修正して上書きしましょう。

ご健闘をお祈りします。

インポート定義が保存されていないようですが。

とりあえず
Private Sub 実行_Click()
  'TextConv Me.テキスト1, "テーブルA", "テーブル1"
  TextConv Me.テキスト1, "", "テーブル1"
End Sub
にすれば、インポートは出来ます。

インポート定義ができたら、その名前にしてください。

> ■全データ削除ではなく追加していきたい

'テキストコンバートルーチン
Sub TextConv(strFle As String, strInp As String, strTbl As String)
  If MsgBox("インポートしますか?", 4, "実行確認")...続きを読む

QCVポートのカテーテル断裂について ピンチオフ 医療ミス?医療過誤?

2年ほど前に 抗ガン剤治療のため CVポートを胸元に入れました。
1回目の点滴から 落ちが悪く 起き上がると 点滴が全く落ちなくなってしまうため 点滴中は トイレ以外は寝て使用してました。
何度か使用し、その度に落ちが悪い事は 主治医にも看護士にも伝えましたが、レントゲンで確認する事もなく 気になるなら ポートの入れ替えしましょうか?と。
その時に、ピンチオフの可能性の説明があれば 入れ替えてたはずです。
当時無知だった私達は、痛い思いをしたくないのでという 本人の希望通り 落ちは悪いものの そのまま使用してました。
その後 点滴始める前の 注射器での生理食塩水?を流す際 無理に流そうとしたのか グシャっと変な音が…
その日は ポートを使用した際 痛みが出たので 腕からの点滴に切り替えました。
しばらく腕から抗ガン剤治療をしました。
何とか もっと他の治療法がないかと色々調べ セカンドオピニオンを受けたいのでと 主治医に話すと その度に 全て否定され 都会の病院に行っても どこも同じだから と中々紹介状を頂けませんでした。
半年程我慢し やはり 不信感と威圧感に耐えかね 長い話し合いの結果渋々紹介状を書いて頂ける事になりました。
その後 他の病院にお世話になる事になり 抗ガン剤治療をするには ポートの入れ替えしましょうか?と。
そこで、ピンチオフしている事が発覚しました。
その時点で5月でした。
2月にとったCTをよく見ると 断裂したカテーテルが写り込んでたそうです。
すぐ、足の付け根から 3時間かけて カテーテル除去手術をしましたが 血管にくっ付いていて 除去する事ができませんでした。
手術後落ち着いてから 前の病院に事情を話した所、全面的にミスを認め 院長から謝罪を受けました。
で、示談の話になり 提示された額は 27万円。
入院中の代金と、その間の精神的苦痛に対してだそうです。
カテーテルはそのまま残ってるのに、その後の精神的な苦痛に対してはどうなるのか質問すると、総額では30万で…キリよくした?
呆れ果てました…
病気だけでも大変なのに、カテーテルも肺静脈に残ってる状態です。
そこで、知りたいのは この額は妥当なのでしょうか?
示談書が送られてきてから、まだ返事ができずにいます。
本人はもう末期で痛みの緩和に移りました。
もし、亡くなった場合 示談金は頂けないのでしょうか?
これは、医療過誤、医療ミス どちらになりますか?
乱文で 読み辛い点が多々あると思いますが ご回答頂けると助かります。

2年ほど前に 抗ガン剤治療のため CVポートを胸元に入れました。
1回目の点滴から 落ちが悪く 起き上がると 点滴が全く落ちなくなってしまうため 点滴中は トイレ以外は寝て使用してました。
何度か使用し、その度に落ちが悪い事は 主治医にも看護士にも伝えましたが、レントゲンで確認する事もなく 気になるなら ポートの入れ替えしましょうか?と。
その時に、ピンチオフの可能性の説明があれば 入れ替えてたはずです。
当時無知だった私達は、痛い思いをしたくないのでという 本人の希望通り 落ちは悪いもの...続きを読む

Aベストアンサー

私もCVポート設置者です。
酷い話ですね。

金額が妥当かについては、社会保険なども関係するのでは?
通常は7割ですが限度額認定も受けているのでは?


>もし、亡くなった場合 示談金は頂けないのでしょうか?

関係ありません。
損害賠償請求は相続されます。
病院が認めているのであれば、国や行政の機関も
巻き込んで請求するべきです。

QAccess VBAで読み込んだ配列をcsvファイルにエクスポート 

VBA初心者です。
Access VBAで読み込んだ配列をcsvファイルにエクスポートしているのですが、
配列が1列ずつではなく1行ずつエクスポートされてしまいます。
どこが悪いかは大体予想がつくのですが、どうすればいいか分かりません。

また、複数のファイルを読み込んで1つのファイルにエクスポートするため、
いちいち「55:ファイルは既に開かれています」と表示されます。
これもどうにかならないでしょうか?
よろしくお願いします。

Private Sub cmd_Click()
On Error GoTo Err_cmd_Click
Dim strArg() As String
Dim Contents As String
Dim ReadFileName As String
Dim WriteFileName As String
Dim i As Integer
Dim inp As Long
Dim cnt As Integer
Dim temp As String '1行のデータの仮置き

inp = Forms![フォーム1]![日付] 'フォームの非連結テキストボックスと連動


For cnt = 0 To 30
ReadFileName = "P:\dl_engine\logs1\service\" & inp + cnt
' ファイル読込
Open ReadFileName For Input As #1
Do Until EOF(1)
Line Input #1, temp
Contents = Contents & temp & vbCrLf
Loop
Close #1
strArg = Split(Contents, " ") ' スペースで分割

WriteFileName = "C:\Contents\ザ★スクリーン\auDownLoadLog.csv"
' ファイル保存
Open WriteFileName For Output As #2
For i = 0 To UBound(strArg)
Print #2, strArg(i)
Next i
Next cnt

'正常終了
Exit_cmd_Click:
Exit Sub

'エラー処理
Err_cmd_Click:
Beep
Select Case Err.Number
Case Else
MsgBox Err.Number & ":" & Err.Description
End Select
Resume Next
End Sub

VBA初心者です。
Access VBAで読み込んだ配列をcsvファイルにエクスポートしているのですが、
配列が1列ずつではなく1行ずつエクスポートされてしまいます。
どこが悪いかは大体予想がつくのですが、どうすればいいか分かりません。

また、複数のファイルを読み込んで1つのファイルにエクスポートするため、
いちいち「55:ファイルは既に開かれています」と表示されます。
これもどうにかならないでしょうか?
よろしくお願いします。

Private Sub cmd_Click()
On Error GoTo Err_cmd_Click
Dim str...続きを読む

Aベストアンサー

内容を見ると、Access2000以上と思いますが、動かす環境が無いため、机上デバッグです。
LineInputしたtempをSplitしているので、tempがデータの行単位でこれをカンマ表示すると解釈しました。
うまくいけば、Excelに読み込める。これが目的?

Access2000なら、Splitしたら『,』を使ってJoinできなかった?(Excel2000か?)


手を加えてみました。動くかな???(止まったらごめんなさい)

Private Sub cmd_Click()
  On Error GoTo Err_cmd_Click

  Dim strArg() As String
  Dim Contents As String
  Dim ReadFileName As String
  Dim WriteFileName As String
  Dim i As Integer
  Dim inp As Long
  Dim cnt As Integer
  Dim temp As String '1行のデータの仮置き

  inp = Forms![フォーム1]![日付] 'フォームの非連結テキストボックスと連動

  '============ 保存ファイルは1つのように見える。最初に宣言 =========
  WriteFileName = "C:\Contents\ザ★スクリーン\auDownLoadLog.csv"
  '保存ファイルを開く
  Open WriteFileName For Output As #2
  '===================================================================

  For cnt = 0 To 30
    ReadFileName = "P:\dl_engine\logs1\service\" & inp + cnt

    ' ファイル読込
    Open ReadFileName For Input As #1

    Do Until EOF(1)
      Line Input #1, temp

      strArg = Split(temp, " ") ' スペースで分割
      '====== CSVファイルなのでカンマで分けた文字列にする =================
      'CSVなのにカンマがない。カンマを付加する箇所を付けてみた。
      'Access2000? ならJoin関数がある?当方、Access97のためよく分からず
      'tempにスペースがない場合があるのか
      temp = strArg(0)
      For i = 1 To UBound(strArg)
        temp = temp & "," & strArg(i)
      Next i
      '====================================================================
      Contents = Contents & temp & vbCrLf
    Loop
    Close #1

    '========= 1ファイル分のデータを書く ================
    '========= ContentsにvbCrLfがあるので改行しない=======
    Print #2, Contents;
    '========= Contentsをクリア ==========================
    Contents = ""
    '=====================================================
  Next cnt

  '======= ファイルを閉じる ===
  Close
  '============================

'正常終了
Exit_cmd_Click:
  Exit Sub

'エラー処理
Err_cmd_Click:
  Beep
  Select Case Err.Number
    Case Else
      MsgBox Err.Number & ":" & Err.Description
  End Select
  Resume Next
End Sub

内容を見ると、Access2000以上と思いますが、動かす環境が無いため、机上デバッグです。
LineInputしたtempをSplitしているので、tempがデータの行単位でこれをカンマ表示すると解釈しました。
うまくいけば、Excelに読み込める。これが目的?

Access2000なら、Splitしたら『,』を使ってJoinできなかった?(Excel2000か?)


手を加えてみました。動くかな???(止まったらごめんなさい)

Private Sub cmd_Click()
  On Error GoTo Err_cmd_Click

  Dim strArg() As String
  Dim Co...続きを読む

Qポートを入れるか迷っています。

来月から母の抗癌剤治療が始まるのですが、埋め込み型ポートを入れるかどうか迷っています。

抗癌剤の点滴は3~4週間に一度、期間は手術までの半年、術後は経過を見ながら数回行うそうです。
担当の先生からは、頻度もそうでもないし、年齢のわりに血管もしっかりしているしどっちでも良いよ、
ただ実際始まってみないと血管がどうなるか分からないし、ポートを入れた人はみんな良かった、楽だと言っている、と言われています。強く勧められているわけでもないので迷っています。
治療が始まって、血管の負担があまり大きいようならばその時に入れれば良いのか、とも思いますが、それからではその分身体の負担が大きいのかなとも…。
急いで決めず、セカンド・オピニオン(聞きかじりでどんなものなのかもよく知らないのですが)をお願いした方が良いのかな? とか…。
とにかく決めかねています。

明日の診察で治療の開始日とポートのことも決めなければなりません。
アドバイス、経験談などありましたらお聞かせください。よろしくお願い致します。

Aベストアンサー

No1です。再び失礼します。
ちょっと嫌な思いをされたんですね・・

私の病院での癌チームの方針では病状説明や治療法相談は必ずご家族と一緒に来てもらいます。癌患者さん本人はやはり自分のことだし、一番意見を言うべきだちばだけどやはり癌と言う未知のものに恐怖を抱いていたり動転していたりで自分に本当にいいのはどういうことかというのが考えられない状況のことが多いと思います。
家族の方は、動転こそすれやはりご自身よりは冷静に客観的に物事を考えられるし、そもそも一番癌患者さんをサポートするのは医師でも看護師でもなく御家族ですものね。
家族の方がいろいろと質問をしてこられて説明の時間が非常に長くなることはよくありますが、その一家にとっては一大事です。遠慮なんてすることないと思います。そうやって疑問が出てきていろいろ聞きたいのは当然だし、そうあるべきだと思うし、医師もそれに応える義務があると思います。

医師によっては、技術や知識が同じでもそういったコミュニケーション力が足りない人もいると思います。質問を面倒くさいと思う医師もいるだろうし、家族がでしゃばるなと考える医師もいるのかもしれません。面倒くさいと思っていなくても、不器用でうまく相談に乗れない医師もいるかもしれません。医師も人間ですから、質問者様にとって合う、合わないももちろんあると思いますしいろんな医師がいますから・・・

このエピソードだけで「その医師はよくないですね」なんていうつもりは全くないです。しばらく付き合って、どうしても「この先生に出会えてよかった」とは思えないと思われたら、転院・セカンドオピニオンは患者の権利です。これから長くお母様の病気と闘っていくのだと思います。どうか後悔のないように、いろいろお母様とも相談されてください。

No1です。再び失礼します。
ちょっと嫌な思いをされたんですね・・

私の病院での癌チームの方針では病状説明や治療法相談は必ずご家族と一緒に来てもらいます。癌患者さん本人はやはり自分のことだし、一番意見を言うべきだちばだけどやはり癌と言う未知のものに恐怖を抱いていたり動転していたりで自分に本当にいいのはどういうことかというのが考えられない状況のことが多いと思います。
家族の方は、動転こそすれやはりご自身よりは冷静に客観的に物事を考えられるし、そもそも一番癌患者さんをサポートす...続きを読む

QCSVファイルのエクスポート項目の日付表示形式

顧客ファイルをショッピングカートからエクスポートして、CRMツールにインポートする作業を行っています。

その際に、ショッピングカート側から配送日の日付の表示形式が例えば「2014/4/13 10:48:00」であれば、「20140413104800」(YYYYMMDDhhmmss)という表示形式でしかエクスポートができません。その一方で、受ける側のCRMツールは日付の取り込み形式が「yyyy/mm/dd hh:mm」に限定されています。

そのため「YYYYMMDDhhmmss」の表示形式を「yyyy/mm/dd hh:mm」に変更する必要があります。ソフトにはExcel2013を使用しており、データ数は1日50~60件ほどのため、一括変換する方法を模索しています。

ショッピングカート側からダウンロードしたCSVファイルをExcel2013で取り込み、CRMツールで取り込み可能な「yyyy/mm/dd hh:mm」の書式に変換する方法を教えて下さい。

Aベストアンサー

作業列を使っていいなら

=TEXT(A2/100,"0000!/00!/00 00!:00")

で表示された値を、コピーして値として貼り付け

Qポート埋め込み手術について教えてください。

ポート埋め込み手術について教えてください。
実の母(58歳)のことで相談します。
2年前に上行結腸に腫瘍ができ6月に手術して抗がん剤治療をしていましたが、副作用がひどくなったため、去年の9月末で医師の診断の元、抗がん剤をやめていました。すると今年の2月からかなり体調が悪くなり、検査してもらうと卵巣に悪性腫瘍が見つかり、4月に全摘出しました。
高度医療可能な病院に紹介状をかいていただき、先月PET検査しました。結果、今のところ、腫瘍の影は見当たらなかったのですが、抗がん剤治療は必要とのことで、あさってにポート埋め込み手術をします。
鎖骨下にポートを埋めて2週間ごとに48時間抗がん剤点滴をする治療と、聞きましたが、まだまだ不安に感じ、直接医師からの詳しい説明がなくて・・・

費用や期間、メリット、デメリットを詳しく知りたいので、同じような治療経験のあるかた、またご存知のことがありましたら、教えてください。よろしくお願いします。

Aベストアンサー

まず、ポート埋め込み手術とは何か、ということについて
ご参考に……
http://ganjoho.jp/public/dia_tre/attention/chemotherapy/route.html
http://www.medicon.co.jp/general/index.php?m=P04

費用については、もちろん、高額療養費制度の適用になります。
この手術自体よりも、使用する抗がん剤の料金の方が問題でしょう。

QAccess パラメータクエリをcsvでエクスポートしたい

Access 初心者です。
パラメータークエリにて日付でを抽出後のデータをcsvで保存したいです。

自分で色々調べてやってみたのですがどうもうまくいかず
「パラメータが少なすぎます2を指定してください」のエラー表示もでます。

パラメータクエリで抽出後のデータをcsvで保存することは可能なのでしょうか。

また、保存が可能であればコマンドボタンを作りボタンを押した時にエクスポートのウィザードが
表示できるようにしたいのですがそれも可能でしょうか。

期日もありできず困っています。
初心者の為細かく教えていただきたいです。

今使用しているパラメータークエリは4つの各テーブルから作っています。

ご教授お願い致します。

Aベストアンサー

userのテーブルが下記に有ります。
id 氏名
1 長崎
2 札幌
3 千歳
4 博多

追加先のテーブルが下記に有ります。
id user comment
1 長崎

下記の文字列をsqlとしてコピペ入力して下さい。
INSERT INTO 追加先 ( id, [user] )
SELECT user.id, user.氏名
FROM [user]
WHERE (((user.id)=[idを入れろ]));

そのまま実行して下さい。

Q肝不全の点滴治療について(転院等も含めて)

父が肝硬変で昨11月に余命2週間との診断を受け、その後アルブミン製剤・モリヘパミン等の点滴治療を行い、入退院を繰り返し、早4ヶ月が過ぎようとしています。

1ヶ月ほど前に、右の麻痺と肝性脳症で緊急入院し、モリヘパミンの点滴で約10日後には、麻痺もなくなり肝性脳症も治まったため、点滴を中断したところ、2日後に右の麻痺が出て、再度点滴を行ない(1日500cc2本)、1泊外泊の許可が出て自宅に帰りました。

点滴再開後、2日でまだ完全には戻っていない状態に見受けられましたが、病院側の入院時よりはましですからとの説明で、外泊することになり、夕方連れ帰りましたが、翌日夕方あたりより右が効かなくなり、肝性脳症で意識がなくなってしまい、救急車で病院に搬送しました。

搬送後、CTと点滴をし、翌日には回復しました。このような状況で毎日点滴が必要との判断から、担当医より転院の説明がありました。3箇所ばかり紹介され見学しましたが、2箇所が精神病院、1箇所が老人病院と行ったところでした。

皆様にお伺いたいのは、今、お世話になっている急性病院にはいつまでいられるか。
また、転院で紹介された病院ではおおむねの患者さまが寝たきりで、父の様態とは違うように思われますが、このような病院しかないのでしょうか。
また、血管が細くなりIHVのポートを入れる手術をしました。この場合、通院での点滴や在宅で訪問看護などでの対応などは可能となるのでしょうか。
また、肝硬変は肝不全に進んでしまい、本人に一番よい環境で最後を過ごさせてあげたいと思いますが、どうしたら一番かわかりません。
本人は家に帰りたいと何度も話しており、それが一番だとは思うのですが、このような病状で自宅で可能でしょうか。
今現在、要介護1の認定を受けていますが、これを利用することは可能でしょうか。教えてください。
よろしくお願いします。

父が肝硬変で昨11月に余命2週間との診断を受け、その後アルブミン製剤・モリヘパミン等の点滴治療を行い、入退院を繰り返し、早4ヶ月が過ぎようとしています。

1ヶ月ほど前に、右の麻痺と肝性脳症で緊急入院し、モリヘパミンの点滴で約10日後には、麻痺もなくなり肝性脳症も治まったため、点滴を中断したところ、2日後に右の麻痺が出て、再度点滴を行ない(1日500cc2本)、1泊外泊の許可が出て自宅に帰りました。

点滴再開後、2日でまだ完全には戻っていない状態に見受けられましたが、...続きを読む

Aベストアンサー

在宅看護を専門にしている大学の教員です。

急性期病院は通常2週間から1ヶ月程度の入院をするところですので、医師の予想よりもお父様が頑張られてきた経緯があって、制度の合間にはまってしまった感じですね。
他にあるとすれば、緩和ケア病棟でしょうか。

在宅での療養と看取りも可能と思われますが、ある程度、条件があるように思います。まずは看取り等に対応できる訪問診療が可能な医師や経験のある訪問看護の事業所が近隣に存在することです。その他に、ある程度質問者の方自身が、ある程度対応できる体制をつくる必要があるかと思います。(看取る時期には仕事の融通が利くような準備はしておいたほうがよいでしょう。)
輸液などはポートから自宅でも可能ですが、それによる効果はこれからあまり期待できなくなると思います。それをどこまで行うのか、(可能なら)ご本人とご家族の意見をまとめ医療職とも相談しながら進めてゆくことになると思います。介護保険も使われると思いますのでケアマネとも相談が必要です。(要介護1ということですが、区分変更の申請でもう少し介護度が重くなり、上限が拡大されると思いますので、これも相談してみてください。)

どうしたら1番良いのかは患者さん本人にしかわかりません。自分の人生をどうしたいのかについては患者さんが先生だと学生にも教えています。(でも本人もよくわかんない!ということもあります。)少なくともご家族がご本人の意向をご存じであれば、ご本人の意思が確認できない場合にできるだけそれに沿って医療面でサポートしていくことは可能です。

残される皆さんにはとても辛いことかもしれませんが、お父様の最期の時が有意義なものになるよう祈っております。

在宅看護を専門にしている大学の教員です。

急性期病院は通常2週間から1ヶ月程度の入院をするところですので、医師の予想よりもお父様が頑張られてきた経緯があって、制度の合間にはまってしまった感じですね。
他にあるとすれば、緩和ケア病棟でしょうか。

在宅での療養と看取りも可能と思われますが、ある程度、条件があるように思います。まずは看取り等に対応できる訪問診療が可能な医師や経験のある訪問看護の事業所が近隣に存在することです。その他に、ある程度質問者の方自身が、ある程度対応でき...続きを読む

Q自動的にcsvでエクスポートしてくれるマクロ

sheetがいくつかあり、指定したsheetを自動的にcsvで吐き出してくれるマクロを作成中です。
Sub Macro1407()
Dim fText As String
Open "C:\Documents and Settings\人事ファイ ル.xls" For Input As #1
Open "C:\Documents and Settings\pgotouy\人事 ファイル.csv" For Output As #2

Close #1
Close #2
End Sub

これだとうまくいってくれませんでした。どなたかアドバイスお願いします。出来ればついでにxmlで吐き出すマクロについてもお願いします。

Aベストアンサー

csvで、はき出す例。
たとえばこんな感じでしょうか。

Dim outPath As String
outPath = "C:\Documents and Settings\pgotouy\"
Dim sheetNum As Integer
sheetNum = 1

Application.Dialogs(xlDialogOpen).Show
Sheets(sheetNum).Activate
ActiveSheet.SaveAs Filename:=outPath & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close

うまくできますように


人気Q&Aランキング

おすすめ情報