Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9456 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27217】データのインポートについて うっちー 05/8/2(火) 14:26 質問[未読]
【27218】Re:データのインポートについて Jaka 05/8/2(火) 15:22 回答[未読]
【27219】Re:データのインポートについて ｍ2ｍ10 05/8/2(火) 15:31 回答[未読]
【27217】データのインポートについて
質問  うっちー  - 05/8/2(火) 14:26 -
引用なし
パスワード
   データのインポートについて困っています。
教えて下さい！

現在、他ブックのある特定列のデータをインポートするため
下記のようにコーディングしています。

With ThisWorkbook.Worksheets("Sheet1").Range("A4:A4096")
　　.Formula = "=if(" & _
　　　　　　"'他ブックのパス名'!セル番地=" & _
　　　　　　""""",""""," & _
　　　　　　"'他ブックのパス名'!セル番地)"
　　.Value = .Value　
End With

で、文字のインポートは全く問題ないのですが、例えばインポート元の
データに「35:0」と文字列で書かれている数値データをインポートすると
インポート先には時間形式「35:00:00」と表示されてしまいます。
文字列のまま「35:0」とインポートするにはどうしたらよいのでしょうか？
誰か教えて下さい！
【27218】Re:データのインポートについて
回答  Jaka  - 05/8/2(火) 15:22 -
引用なし
パスワード
   こんにちは。
>With ThisWorkbook.Worksheets("Sheet1").Range("A4:A4096")
>　　.Formula = "=if(" & _
>　　　　　　"'他ブックのパス名'!セル番地=" & _
>　　　　　　""""",""""," & _
>　　　　　　"'他ブックのパス名'!セル番地)"
　　　多分この時点では、「35:0」となっていると思います。
>　　.Value = .Value　 ←これで、時間に変換されていると思います。
>End With
.Value = .Value　としないで、コピー後、値だけ貼り付けでどうでしょうか？
【27219】Re:データのインポートについて
回答  ｍ2ｍ10  - 05/8/2(火) 15:31 -
引用なし
パスワード
   　.Value = "'" &　
>　　　　　^^^^　

　　頭に　’を付けると文字扱いになります。
　
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9456 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free