Excel VBA質問箱 IV

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

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


41463 / 76735 ←次へ | 前へ→

【40352】Re:ピポットで
発言  hide  - 06/7/12(水) 10:07 -

引用なし
パスワード
   ▼漂流民 さん:
>この質問内容だけでは同じ経験をした人ぐらいしか回答できないと思いますよ。
説明不足すいません。回答させて頂きます。
>
>>Webのページからエクセルを開き
>>別インスタンスでエクセルを立ち上げ
>これはどのように行っているのでしょうか?
IEからマクロが登録された、エクセルを開いています。

>>ファイルを読み込む
>どこにある、どのようなファイルを読み込んでいるのでしょうか?
ファイルはサーバにある、DAT形式のファイルを読み込みます。

>>その後ピポットで集計
>どのようなコードですか?
  Dim Myapp As Object
  Set Myapp = CreateObject("excel.Application")
  With Myapp
    .Visible = True
    .Workbooks.OpenText Filename:="\\サーバ\d$\pcm25.dat", StartRow _
    :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
    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, 2), Array(28, 2), Array(29, 2), _
    Array(30, 2), Array(31, 2), Array(32, 2), Array(33, 2), Array(34, 2), Array(35, 2), Array( _
    36, 2), Array(37, 1), Array(38, 1), Array(39, 2), Array(40, 2), Array(41, 2), Array(42, 1), _
    Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1), Array(48, 1), Array( _
    49, 1), Array(50, 1), Array(51, 2), Array(52, 2), Array(53, 2), Array(54, 1), Array(55, 1), _
    Array(56, 1), Array(57, 1), Array(58, 1), Array(59, 1), Array(60, 1), Array(61, 1), Array( _
    62, 1), Array(63, 1), Array(64, 1), Array(65, 1), Array(66, 1), Array(67, 1), Array(68, 1), _
    Array(69, 2), Array(70, 2), Array(71, 2), Array(72, 2), Array(73, 1), Array(74, 1), Array( _
    75, 1), Array(76, 1), Array(77, 1), Array(78, 2))
  End With
  ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "pcm25!R1C1:R1891C78").CreatePivotTable TableDestination:="", TableName:= _"ピボットテーブル1"

CreateObjectでエクセルを新規で立ち上げ、ファイルの読み込みまではうまくできたのですが、集計前に[ピポットテーブルの集計元ファイルが開けません]というエラーがでます。

0 hits

【40236】ピポットで hide 06/7/10(月) 8:48 質問
【40344】Re:ピポットで 漂流民 06/7/12(水) 0:04 発言
【40352】Re:ピポットで hide 06/7/12(水) 10:07 発言
【40380】Re:ピポットで 漂流民 06/7/12(水) 22:42 発言
【40417】Re:ピポットで hide 06/7/13(木) 15:07 お礼

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