小编ash*_*awg的帖子

如何使用VBA在默认浏览器中打开HTML页面？我知道它是这样的:

Shell "http://myHtmlPage.com"

但我想我必须参考打开页面的程序.

此代码将日志文件写入LogFilePath,并生成如下输出.StarRange和EndRange是一个变量,其值将从其他函数填充.

"Start postion",A1
"End position",B100

---Code-----------------
Sub WriteLogFile()
 Dim FilePath As String

 LogFilePath = WriteTextBox.Text

LogFilePath = LogFilePath & ".log"
Open LogFilePath For Output As #2

Write #2, "Start postion"; StarRange
Write #2, "End position"; EndRange
Close #2

MsgBox FinalFileName

End Sub

我的问题是如何从输出中删除双引号并产生如下输出.谢谢

Start position = A1
End position = B100

我在Spark中有一个数据框,其中一个列包含一个数组.现在,我编写了一个单独的UDF,它将数组转换为另一个只有不同值的数组.见下面的例子:

例:[24,23,27,23]应转换为[24,23,27 ] 代码:

def uniq_array(col_array):
    x = np.unique(col_array)
    return x
uniq_array_udf = udf(uniq_array,ArrayType(IntegerType()))

Df3 = Df2.withColumn("age_array_unique",uniq_array_udf(Df2.age_array))

在上面的代码中,Df2.age_array是我在其上应用UDF以获取不同列的数组,该列"age_array_unique"应该只包含数组中的唯一值.

但是,只要我运行该命令Df3.show(),我就会收到错误:

net.razorvine.pickle.PickleException:构造ClassDict的预期零参数(对于numpy.core.multiarray._reconstruct)

任何人都可以让我知道为什么会这样吗？

谢谢!

现在我很困惑.我打算为这个问题创建一个答案.

通过运行一些测试,我注意到了

ActiveSheet.Cells.Replace Chr(1), "", xlPart, , True, , False, False

完全清除表格.这有一定道理的Chr(42)这是*为什么Chr(1)？

有谁知道原因？它是某种第二/隐藏占位符吗？
(无法找到某些内容,但可能只使用了错误的搜索字词)

我不想诉诸SendKeys"{ESC}"

我正在尝试创建一个交互式地图,用户可以在地图中点击不同的省份以获取该省的特定信息.

示例:http: //www.todospelaeducacao.org.br/ http://code.google.com/p/svg2imap/

到目前为止,我只发现功能有限的解决方案.我只是使用SVG文件搜索过这个,但是如果可能的话,我会对其他文件类型开放.

如果有人知道一个完全功能的方法(jQuery插件,PHP脚本,矢量图像)或如何手动执行它的教程请分享.

我需要在VBA中将100KB +字符串编码为base64.是否有任何可用的内置函数或COM对象,因为纯VBA方法要么复杂,要么在这些卷上无法很好地扩展(请参阅dbb和marxidad的链接)？

在提出问题后3年多我找到了解决方案.我把它作为答案包括在内.

我有一个带有模数的表达式,需要按x来表示.

(a + x)mod m = b

我无法弄清楚如何处理模数.有没有办法自己获得x,或者我在这个上运气不好？

编辑:我意识到我可以得到多个答案,但我正在寻找一个在m范围内的答案.

这里有很多问题要创建一个宏来将工作表保存为CSV文件.所有答案都使用SaveAs,就像SuperUser中的这个.他们基本上说要创建这样的VBA函数:

Sub SaveAsCSV()
    ActiveWorkbook.SaveAs FileFormat:=clCSV, CreateBackup:=False
End Sub

这是一个很好的答案,但我想要导出而不是另存为.当SaveAs被执行时,它会引起我两个烦恼:

• 我当前的工作文件变为CSV文件.我想继续使用我原来的.xlsm文件,但要将当前工作表的内容导出到具有相同名称的CSV文件.
• 出现一个对话框,要求我确认我要重写CSV文件.

是否可以将当前工作表导出为文件,但继续在原始文件中工作？

我正在尝试下载,然后使用Excel中的VBA在Outlook电子邮件中打开Excel电子表格附件.我怎么能够:

1. 从我的Outlook收件箱中的第一封电子邮件(最新电子邮件)下载唯一的附件
2. 将附件保存在具有指定路径的文件中(例如:"C:...")
3. 使用以下命令重命名附件名称:当前日期 + 上一个文件名
4. 将电子邮件保存到其他文件夹中,其路径如"C:..."
5. 将Outlook中的电子邮件标记为"已读"
6. 在Excel中打开 Excel附件

我还希望能够将以下内容保存为分配给各个变量的单个字符串:

• 发件人电子邮件地址
• 接收日期
• 发送日期
• 学科
• 电子邮件的消息

虽然这可能更好地在一个单独的问题中提出/自己寻找它.

我目前的代码来自其他在线论坛,可能不是很有帮助.但是,这里有一些我一直在努力的点点滴滴:

Sub SaveAttachments()
    Dim olFolder As Outlook.MAPIFolder
    Dim att As Outlook.Attachment
    Dim strFilePath As String
    Dim fsSaveFolder As String

    fsSaveFolder = "C:\test\"

    strFilePath = "C:\temp\"

    Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

    For Each msg In olFolder.Items
        While msg.Attachments.Count > 0
            bflag = False
            If Right$(msg.Attachments(1).Filename, 3) = "msg" Then
                bflag = True
                msg.Attachments(1).SaveAsFile strFilePath & strTmpMsg
                Set msg2 …