小编yat*_*ici的帖子

我在这个网站上看了几个类似的问题,但看起来他们都没有做到这一点.我正在尝试创建一个新的工作簿,复制其活动工作表的内容并将其粘贴到这个新创建的工作簿.以下是我使用的代码:

Sub new_workbook()

    Dim ExtBk As Workbook
    Dim ExtFile As String

    Columns("A:N").Copy

    Workbooks.Add.SaveAs Filename:="output.xls"
    ExtFile = ThisWorkbook.Path & "\output.xls"

    Set ExtBk = Workbooks(Dir(ExtFile))
    ExtBk.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

    Application.DisplayAlerts = False
    ExtBk.Save
    Application.DisplayAlerts = True

End Sub

我PasteSpecial在该主题上指定错误的行收到错误.我有点困惑,因为如果我将它指向源工作簿,这是有效的.

也许我需要使用Windows(output.xls)？

嗨,我对python很新,所以我一直在玩它.我最近为我正在处理的某个进程创建了2个文件,它们在运行python时似乎正在工作,但在unix命令行中编写python name.py argv时什么都不做.这可能是基本的东西,我会很感激一些帮助.第一个文件(make_dir.py)

import os
import sys

def main():
    directory = sys.argv[1]
    if not os.path.exists(directory):
      os.makedirs(directory)

在unix终端我写

python make_dir.py /home/user/Python/Test/

结果:未创建测试文件夹.

第二个文件可能存在同样的问题.第二个文件directory.py

import sys
import os

def main():
  os.chdir(sys.argv[1])
  File = open(sys.argv[2] , 'w')
  File.write(sys.argv[3])
  File.close()

在unix终端:

python directory.py /home/user/Python/TEST/ a.log "this is a test"

a.log未创建.如果我收到一些错误消息,我可能会想出来但没有消息.任何帮助深表感谢.

我试图一次读取一列单元格,并将单元格作为键存储,并将其频率作为其值.然后我想将所有键值对放在一个范围内,比如列P和Q.我想我已经完成了下面代码完成工作的第一部分(虽然不是100%)现在如何放置键值对一个范围？

Dim D As Dictionary
Set D = New Dictionary
Dim DR As Range


 Set DR = Range(Cells(2, 2), Cells(2, 2).End(xlDown))

    For Each Cell In DR.Cells

        If Not D.Exists(Cell.Value) Then
        D.Add Cell, 1
        Else
        D.Exists (Cell.Value)
        D.Item(Cell.Value) = D.Item(Cell.Value) + 1
        End If

    Next Cell

我粗略地想要按每个键循环字典,但我不能这样做

Dim k as key

任何帮助深表感谢

我查看了一个非常相似的问题，但无法解决在 sed 中用换行符替换逗号的问题

我正在尝试转换:字符串中的字符。这是我尝试过的：

echo -e 'this:is:a:test' | sed "s/\:/'\n'/g"

但这将 : 替换为 n。我也试过 tr 但结果相同。我相信 -e 在通过管道传输后不会被看到，因此无法识别新行。

任何帮助表示赞赏。