小编Dum*_*ont的帖子

将多个CSV导入到单个工作簿中的多个工作表

我该怎么做呢?基本上我希望将多个CSV文件导入到多个工作表,但仅限于一个工作簿.这是我要循环的VBA代码.我需要循环来查询所有的CSVC:\test\

Sub Macro()
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\test\test1.csv", Destination:=Range("$A$1"))
    .Name = "test1"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers …
Run Code Online (Sandbox Code Playgroud)

csv excel vba excel-vba

16
推荐指数
2
解决办法
5万
查看次数

使用PowerShell获取CPU,内存使用和可用磁盘空间

你能帮我把这三个脚本组合成这样的格式吗?

ComputerName     CPUUsageAverage    MemoryUsage    C PercentFree
xxx                           12            50%              30%
Run Code Online (Sandbox Code Playgroud)

我执行这个的方式是: Get-content '.\servers.txt' | Get-CPUusageAverage

以下是脚本:

中央处理器

Function Get-CPUusageAverage
{
$input|Foreach-Object{Get-WmiObject -computername $_ win32_processor | Measure-Object -property LoadPercentage -Average | Select Average}
}
Run Code Online (Sandbox Code Playgroud)

记忆

    Function get-MemoryUsage
{
$input|Foreach-Object{
gwmi -Class win32_operatingsystem -computername $_ |
Select-Object @{Name = "MemoryUsage"; Expression = { “{0:N2}” -f ((($_.TotalVisibleMemorySize - $_.FreePhysicalMemory)*100)/ $_.TotalVisibleMemorySize) }
}
}
}
Run Code Online (Sandbox Code Playgroud)

C PercentFree

Function get-CPercentFree
{
$input|ForEach-Object{
  Get-WmiObject -Class win32_Volume -ComputerName $_ -Filter "DriveLetter = 'C:'" |
  Select-object @{Name = …
Run Code Online (Sandbox Code Playgroud)

powershell

4
推荐指数
1
解决办法
4万
查看次数

标签 统计

csv ×1

excel ×1

excel-vba ×1

powershell ×1

vba ×1