|
▼漂流民 さん:
>この質問内容だけでは同じ経験をした人ぐらいしか回答できないと思いますよ。
説明不足すいません。回答させて頂きます。
>
>>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でエクセルを新規で立ち上げ、ファイルの読み込みまではうまくできたのですが、集計前に[ピポットテーブルの集計元ファイルが開けません]というエラーがでます。
|
|