こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

EXCELのワークシートを別のBOOKからVBで取り込む方法

EXCELでリストを元にその中より必要な内容を取り出し別のワークシートで書類を作成するというものをVBにて作成しようとしています。
しかし,このリスト自体は毎月一度EXCELの形でメールで送付されてくるものです。
従って毎月取り込みをする必要があるのですが
単純にリスト全体を選択範囲指定してコピーすれば済むのですが
BOOKを指定して,ファイルを開くたびにその毎月送られてくるBOOKを読み込みたいと思います。

また,作成日を”=today()”で作ると別の日に開くと作成日がその日になります。作成日という意味での関数は無いのでしょうか?
一度入力されると,次の日などにbookを開いてもそこの日付は変わらない方法はありませんか?

・Windows XP HOME SP2
・EXCEL2003 SP2
・Microsoft Visual Basic 6.0

投稿日時 - 2007-08-19 09:26:06

QNo.3267221

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

作成日に関してのみ・・・。

[イミディエイト]
? GetCreatedStamp("D:\Temp\Book1.xls")
2006/01/10 16:04:56
? GetLastStamp("D:\Temp\Book1.xls")
2007/08/07 8:40:28
? GetModifedStamp("D:\Temp\Book1.xls")
2006/01/10 16:04:57

エクセルは一度も操作したことはないです。
が、Excel2003 の標準モジュールに以下の関数をコピペして試してみました。
私は、このような関数を利用してファイルの作成日等を取得しています。

Option Explicit

Public Function GetCreatedStamp(ByVal FileName As String) As Variant
On Error Resume Next
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetCreatedStamp = fso.GetFile(FileName).DateCreated
End Function

Public Function GetLastStamp(ByVal FileName As String) As Variant
On Error Resume Next
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetLastStamp = fso.GetFile(FileName).DateLastAccessed
End Function

Public Function GetModifedStamp(ByVal FileName As String) As Variant
On Error Resume Next
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetModifedStamp = fso.GetFile(FileName).DateLastModified
End Function

投稿日時 - 2007-08-19 10:21:44

あなたにオススメの質問