Excel VBA質問箱 IV

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

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


7297 / 13644 ツリー ←次へ | 前へ→

【39914】EXCEL97でのデータの読み込み 質問 06/7/4(火) 10:44 質問[未読]
【39918】Re:EXCEL97でのデータの読み込み Jaka 06/7/4(火) 11:32 発言[未読]
【39919】Re:EXCEL97でのデータの読み込み 質問 06/7/4(火) 11:39 質問[未読]
【39927】Re:EXCEL97でのデータの読み込み Jaka 06/7/4(火) 13:29 発言[未読]
【39932】Re:EXCEL97でのデータの読み込み 質問 06/7/4(火) 14:13 お礼[未読]
【39974】Re:EXCEL97でのデータの読み込み Hirofumi 06/7/4(火) 19:34 発言[未読]
【39977】Re:EXCEL97でのデータの読み込み Hirofumi 06/7/4(火) 20:49 発言[未読]

【39914】EXCEL97でのデータの読み込み
質問  質問  - 06/7/4(火) 10:44 -

引用なし
パスワード
   EXCEL97でデータを読み込む場合に、
コンパイル時メモリーエラーが出るのですが
原因がわかりません。

拡張子DATのタブ区切りファイルで横の項目は220個あります。
EXCEL2000では問題なくできたのですが・・・

解決方法を教えて下さい。

【39918】Re:EXCEL97でのデータの読み込み
発言  Jaka  - 06/7/4(火) 11:32 -

引用なし
パスワード
   もしかして外部データの読み込み、テキストのインポートで読みこんでいませんか?
確か、97にはこの機能はなかったと思います。
また、97にはクエリでのインポートもできなかったと思います。
(1、2ヶ月前まで97だったのによく覚えてない。)
エクセルでいったん開いてコピペか1行読み込んで各項目を配列に振り分けて
ある程度たまったらまとめて貼り付けするぐらいだと思います。

【39919】Re:EXCEL97でのデータの読み込み
質問  質問  - 06/7/4(火) 11:39 -

引用なし
パスワード
   EXCEL2000では外部データの取込とかできたのですが
97は駄目なようで全て記載しました。

以下の方法でやるとメモリー不足に97コンパイル時に
なるのですが・・・・・・・

'●ファイル読み込み(EXCEL97対応)
  
    Workbooks.OpenText Filename:="C:\SSSS.dat", StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
    Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False _
    , FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2) _
    , Array(13, 2), Array(14, 2), Array(15, 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2), Array(22, 2), Array(23, 2), Array(24, 2), Array(25, 2), _
    Array(26, 2), Array(27, 1), Array(28, 2), Array(29, 2), Array(30, 1), Array(31, 2), Array(32, 2), Array(33, 2), Array(34, 2), Array(35, 2), Array(36, 2), Array(37, 2), Array(38, 2), _
    Array(39, 2), Array(40, 2), Array(41, 2), Array(42, 2), Array(43, 2), Array(44, 2), Array(45, 2), Array(46, 2), Array(47, 2), Array(48, 2), Array(49, 2), Array(50, 2), Array(51, 2), _
    Array(52, 2), Array(53, 2), Array(54, 2), Array(55, 2), Array(56, 2), Array(57, 2), Array(58, 2), Array(59, 2), Array(60, 2), Array(61, 2), Array(62, 2), Array(63, 2), Array(64, 2), _
    Array(65, 2), Array(66, 2), Array(67, 2), Array(68, 2), Array(69, 2), Array(70, 2), Array(71, 2), Array(72, 2), Array(73, 2), Array(74, 2), Array(75, 2), Array(76, 2), Array(77, 2), _
    Array(78, 2), Array(79, 2), Array(80, 2), Array(81, 2), Array(82, 2), Array(83, 2), Array(84, 2), Array(85, 2), Array(86, 2), Array(87, 2), Array(88, 2), Array(89, 2), Array(90, 2), _
    Array(91, 2), Array(92, 2), Array(93, 2), Array(94, 2), Array(95, 2), Array(96, 2), Array(97, 2), Array(98, 2), Array(99, 2), Array(100, 2), Array(101, 2), Array(102, 2), Array(103, _
    2), Array(104, 2), Array(105, 2), Array(106, 2), Array(107, 2), Array(108, 2), Array(109, 2), Array(110, 2), Array(111, 2), Array(112, 2), Array(113, 2), Array(114, 2), Array(115, 2) _
    , Array(116, 2), Array(117, 2), Array(118, 2), Array(119, 2), Array(120, 2), Array(121, 2), Array(122, 2), Array(123, 2), Array(124, 2), Array(125, 2), Array(126, 2), Array(127, 2), _
    Array(140, 2), Array(141, 2), Array(142, 2), Array(143, 2), Array(144, 2), Array(145, 2), Array(146, 2), Array(147, 2), Array(148, 2), Array(149, 2), Array(150, 2), Array(151, 2), _
    Array(152, 2), Array(153, 2), Array(154, 2), Array(155, 2), Array(156, 2), Array(157, 2), Array(158, 2), Array(159, 2), Array(160, 2), Array(161, 2), Array(162, 2), Array(163, 2), _
    Array(164, 2), Array(165, 2), Array(166, 2), Array(167, 2), Array(168, 2), Array(169, 2), Array(170, 2), Array(171, 2), Array(172, 2), Array(173, 2), Array(174, 2), Array(175, 2), _
    Array(176, 2), Array(177, 2), Array(178, 2), Array(179, 2), Array(180, 2), Array(181, 2), Array(182, 2), Array(183, 2), Array(184, 2), Array(185, 2), Array(186, 2), Array(187, 2), _
    Array(188, 2), Array(189, 2), Array(190, 2), Array(191, 2), Array(192, 2), Array(193, 2), Array(194, 2), Array(195, 2), Array(196, 2), Array(197, 2), Array(198, 2), Array(199, 2), _
    Array(200, 2), Array(201, 2), Array(202, 2), Array(203, 2), Array(204, 2), Array(205, 2), Array(206, 2), Array(207, 2), Array(208, 2), Array(209, 2), Array(210, 2), Array(211, 2), _
    Array(212, 2), Array(213, 2), Array(214, 2), Array(215, 2), Array(216, 2), Array(217, 2), Array(218, 2), Array(219, 2), Array(220, 2))

【39927】Re:EXCEL97でのデータの読み込み
発言  Jaka  - 06/7/4(火) 13:29 -

引用なし
パスワード
   ▼質問 さん:
>以下の方法でやるとメモリー不足に97コンパイル時に
>なるのですが・・・・・・・
現在97じゃなくなっているので、原因はわかりません。
97で、StartRow:=1を指定できたっけ???
・・・覚えてないです。多分できなかったような....。
だから、1シートに収まるようにテキストを2つに作り直したような...。

Dim myFieldInfo() As Variant
CT = 220
ReDim myFieldInfo(1 To CT)
For I = 1 To CT
  myFieldInfo(I) = Array(I, 2)
Next
Workbooks.OpenText Filename:=OpenFile, DataType:=xlDelimited, _
     Tab:=True, Comma:=False, FieldInfo:=myFieldInfo
Erase myFieldInfo

【39932】Re:EXCEL97でのデータの読み込み
お礼  質問  - 06/7/4(火) 14:13 -

引用なし
パスワード
   ありがとうございました。
確かに97はもう使用していないですよね・・・

【39974】Re:EXCEL97でのデータの読み込み
発言  Hirofumi  - 06/7/4(火) 19:34 -

引用なし
パスワード
   >EXCEL97でデータを読み込む場合に、
>コンパイル時メモリーエラーが出るのですが
>原因がわかりません。
>
>拡張子DATのタブ区切りファイルで横の項目は220個あります。
>EXCEL2000では問題なくできたのですが・・・
>
>解決方法を教えて下さい。

もう見て居ないかな?
当方、いまだにExcel97を使用しています
普段、Textを読み込む時、「OpenText」を使って読まないのでハッキリしない答えで申し訳有りませんが?
たしか、前にやった時に、引数FieldInfo の配列の指定が有る数(昔で具体的な数は忘れましたが)を超えると
実行時エラーが出たと思います
また、「OpenText」は融通が利かない(勝手に思っている)ので以下の様なコードで読み込んでいます

[#39801] Re:タブ区切りのデータをインポート 
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=39801;id=excel

【39977】Re:EXCEL97でのデータの読み込み
発言  Hirofumi  - 06/7/4(火) 20:49 -

引用なし
パスワード
   やはり、昔 同じ様な質問が有りました

[#8040] EXCEL97でテキストファイルをインポート時... 
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=8040;id=excel

結果として、引数FieldInfo で50列以上指定するとメモリー不足のエラーが出る様です

7297 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free