|
ピポットテーブルまであと一息になりましたが、うまく出来ません。
前半はKBDでうまくいきましたが、後半の項目を足す部分は駄目みたいです。
御教授いただけませんでしょうか？
CALL ExcelConst.uws
excel = XLOPEN("D:\1.csv")
id = GETID("Microsoft Excel", "XLMAIN", -1)
MSGBOX("")
CTRLWIN(id, MAX)
SLEEP(1)
KBD(VK_RALT,DOWN,10)
KBD(VK_D,DOWN,10)
KBD(VK_P,DOWN,10)
KBD(VK_F,CLICK,10)
WITH EXCEL.ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("年")
.Orientation = xlColumnField
.Position = 1
End With
With EXCEL.ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("月")
.Orientation = xlRowField
.Position = 1
End With
With EXCEL.ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("金額")
.Orientation = xlDataField
.Position = 1
End With
//1.csv
//年,月,金額
//15,5,1000
//14,6,2000
//14,5,5000
//15,6,3000
|
No.1739 2015/09/27(Sun) 15:38:18
|
☆ Re: ピポットテーブルを作成したい / Nagatani |
|
|
こんな感じでは、いかがでしょうか？
CALL C:\Users\xxxxxxxx\Desktop\excelconst\ExcelConst.uws
excel = XLOPEN("C:\Users\xxxxxxxx\Documents\Book1.csv")
ID = GETID("Microsoft Excel", "XLMAIN", -1)
MSGBOX("")
CTRLWIN(ID, MAX)
SLEEP(1)
ACW(ID)
KBD(VK_ALT,DOWN)
KBD(VK_D,DOWN)
KBD(VK_D,UP)
SLEEP(1)
KBD(VK_P,DOWN)
KBD(VK_P,UP)
SLEEP(1)
KBD(VK_F,DOWN)
KBD(VK_F,UP)
KBD(VK_ALT,UP)
WITH EXCEL.ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("年")
.Orientation = xlColumnField
.Position = 1
EndWith
With EXCEL.ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("月")
.Orientation = xlRowField
.Position = 1
EndWith
With EXCEL.ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("金額")
.Orientation = xlDataField
.Position = 1
EndWith
|
No.1742 2015/09/27(Sun) 21:08:35
|
|
☆ Re: ピポットテーブルを作成したい / sen |
|
|
うまくいきました。
同じに見えるのですけど、なぜ？
altを戻してなかった？
何はともあれ、良かったです。
csv+uwsc+ピポットテーブルが出来れば集計は、最強です。
ありがとうございました。
|
No.1743 2015/09/28(Mon) 00:36:16
|
|
☆ Re: ピポットテーブルを作成したい / stuncloud |
|
|
ちょっと調べてみたところ、案の定ピボットテーブルの挿入自体もスクリプトで出来るようです
CALL ExcelConst.uws
excel = XLOPEN("1.csv")
// データを取得
data = excel.ActiveSheet.Range("A1").CurrentRegion
// ピボットテーブル用のシートを追加
excel.Sheets.Add()
// ピボットテーブルを挿入
pivotcache = excel.ActiveWorkbook.PivotCaches.Add(SourceType := xlDatabase, SourceData := data)
pivot = pivotcache.CreatePivotTable(TableDestination := excel.Range("A1"))
with pivot
with .PivotFields("年")
.Orientation = xlColumnField
.Position = 1
endwith
with .PivotFields("月")
.Orientation = xlRowField
.Position = 1
endwith
with .PivotFields("金額")
.Orientation = xlDataField
.Position = 1
endwith
endwith
// ぐぐって出てきたコードそのままでちゃんとわかってないのですけど
// 一応同じような結果になっています
|
No.1744 2015/09/28(Mon) 12:25:53
|
|
☆ Re: ピポットテーブルを作成したい / sen |
|
|
これ凄いです。
前半をうまく作れなかったのでKBDに逃げたのですが、これなら連続してピポットテーブルを作る事も出来そうです。
本当に、有り難うございました。
|
No.1752 2015/09/30(Wed) 23:05:34
|
|
