我需要编写一个脚本,该脚本将根据 .csv 文件中两列的数据创建图表。
数据集:
Date, Memory Free
Thu Mar 28 12:19:03 ,19252852,
Thu Mar 28 12:19:08 ,19253444,
Thu Mar 28 12:19:13 ,19253492,
Thu Mar 28 12:19:18 ,19253676,
Thu Mar 28 12:19:23 ,19251164,
Thu Mar 28 12:19:28 ,19251568,
Thu Mar 28 12:19:33 ,19251496,
Thu Mar 28 12:19:38 ,19249448,
Thu Mar 28 12:19:43 ,19250472,
Date, %Idle
Thu Mar 28 12:19:03 ,99.80,
Thu Mar 28 12:19:08 ,99.80,
Thu Mar 28 12:19:13 ,99.80,
Thu Mar 28 12:19:18 ,99.80,
Thu Mar 28 12:19:23 ,99.80,
Thu Mar 28 12:19:28 ,99.80,
Thu Mar 28 12:19:33 ,99.80,
Thu Mar 28 12:19:38 ,99.80,
Thu Mar 28 12:19:43 ,99.80,
Thu Mar 28 12:19:48 ,99.80,
Thu Mar 28 12:19:53 ,99.80,
Thu Mar 28 12:19:58 ,99.80,
Thu Mar 28 12:20:03 ,99.80,
这是我到目前为止所得到的:
Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+p
'
Columns("A:A").Select
Selection.NumberFormat = "ddd mmm dd hh:mm:ss"
Range("A1:B66677").Select
Range("A2").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Range( _
"'cwapp2_MemCPU-Date-pIdle'!$A$1:$B$66677")
End Sub
但它没有在 x 轴上显示日期。那么我该如何解决呢?而且,我可以使用 VBA 处理多个文件吗?