| |
▼hide さん：
>▼漂流民 さん：
>>この質問内容だけでは同じ経験をした人ぐらいしか回答できないと思いますよ。
>説明不足すいません。回答させて頂きます。
>>
>>>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でエクセルを新規で立ち上げ、ファイルの読み込みまではうまくできたのですが、集計前に[ピポットテーブルの集計元ファイルが開けません]というエラーがでます。
集計元ファイルが開けないというエラーなので関係ないかもしれませんが、
少し確認です。
１．
> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
> "pcm25!R1C1:R1891C78").CreatePivotTable TableDestination:="", TableName:= _"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"
を
Myapp.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"pcm25!R1C1:R1891C78").CreatePivotTable TableDestination:="", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"
としてみてください。
２．
> "pcm25!R1C1:R1891C78").CreatePivotTable TableDestination:="", TableName:= _"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1"
このシート名"pcm25"は間違いないですか？
３．
>ピポットで集計の時に「集計元ファイルを開く事ができません。」とエラーがでます。
>集計前に[ピポットテーブルの集計元ファイルが開けません]というエラーがでます。
エラーメッセージは正確に書いてください、解決のヒントになる事がよくあります^^
しかし、ピポットテーブル作成時にファイルを読みにいっている形跡がないので、
正直分かりません^^;
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
