python filename 以txt截尾_What？PPT里也能运行Python？

之前有老师在群里问过，怎么在PPT里运行Python代码。当时觉得解决这个问题性价比太低，就直接跳过了。今天无意间看到PPT里有个“开发工具”选项，这就意味着和其他Office家族成员一样，可以写VBA代码。大家以前可能也都教过VB，那么这个问题就好实现了，先看看F5运行PPT的运行效果：

1、在控件工具箱里添加两个文本框和一个按钮。

2、修改TextBox1的MultiLine属性为True，滚动条为竖向，文字从IDLE里面直接复制进去。稍微修改一下前景背景色、文字格式。

3、修改TextBox2的显示效果。

4、双击按钮进行VBA编码：

具体如下：

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function SaveTextAsUTF8(filePath, Text)

Const adTypeText = 2

Const adSaveCreateOverWrite = 2

'Create Stream object

Dim TextStream

Set TextStream = CreateObject("ADODB.Stream")

With TextStream

.Open

.Charset = "UTF-8"

.Position = TextStream.Size

.WriteText Text

.SaveToFile filePath, adSaveCreateOverWrite

.Close

End With

Set TextStream = Nothing

End Function

Private Sub CommandButton1_Click()

Dim fileName As String

Dim r As Boolean

fileName = "d:\code\" & Format(Now, "hhmmss")

r = SaveTextAsUTF8(fileName & ".py", TextBox1.Text)

Dim FF As Long

Dim Strtemp As String

Shell "cmd.exe /c python " & fileName & ".py > " & fileName & ".txt ", vbHide

While Dir(fileName & ".txt") = ""

DoEvents

Sleep 500

Wend

FF = FreeFile

MsgBox "代码运行成功"

Open fileName & ".txt" For Input As #FF

Strtemp = InputB(LOF(1), #FF)

Close #FF

TextBox2.Text = StrConv(Strtemp, vbUnicode)

End Sub

5、保存成带“宏”的pptm格式，设置好宏安全性。

以上就是在PPT里运行Python代码的过程，无非就是保存代码到py文件，然后调用cmd运行Python命令，把执行结果保存到txt中，再呈现到PPT中。各位，如果有这个特殊需求的，可以一试。

python filename 以txt截尾_What？PPT里也能运行Python？相关推荐

python程序run不了_无法通过计划程序正确运行Python脚本
因此,我研究并测试了多种方法以使其发挥作用,但我们的IT人员和我自己都不确定如何继续.最终,我需要在服务器上运行三个python脚本,这些脚本查看一组Excel文件并扫描错误.如果有错误,它会通过电子 ...
安装python无法启动_终端里为什么无法运行python？
1.首先确认自己电脑是否安装了python,如果不确定可以在终端直接输入python,出现以下界面说明已经正确安装: 2.如果已经安装了python,但是在终端还是显示未安装,很有可能是没有配置环境变 ...
cmd运行python脚本处理其他文件_如何在cmd命令行里运行python脚本
在电脑安装好python软件之后即可通过cmd命令行运行python脚本文件.不过有些小伙伴不懂,今天小编我就来说一下cmd命令行如何运行python脚本文件. 工具/原料电脑 python 3 方 ...
python为什么运行不了_终端里为什么无法运行python？
1.首先确认自己电脑是否安装了python,如果不确定可以在终端直接输入python,出现以下界面说明已经正确安装: 2.如果已经安装了python,但是在终端还是显示未安装,很有可能是没有配置环境变 ...
python名片制作代码_教你做一张能运行 Python 的名片，成本只要20元！
原标题:教你做一张能运行 Python 的名片,成本只要20元! 作为一名普普通通的开发者,改变世界估计是办不到了,但可以让世界更 Geek 一些. 极客名片的诞生如标题所说,表面上看这是一个名片, ...
python代码编辑器android_三款可以在安卓手机上运行Python代码的软件
导语 READ 我相信大家平时大多数时间肯定都是在电脑上面敲Python代码,有时候出门外或者不方便使用电脑的时候,你是否曾想用手机就能编写和运行Python代码呢?本文将会介绍3款不同的安卓软件帮 ...
python编辑器安卓下载-三款可以在安卓手机上运行Python代码的软件
导语 READ 我相信大家平时大多数时间肯定都是在电脑上面敲Python代码,有时候出门外或者不方便使用电脑的时候,你是否曾想用手机就能编写和运行Python代码呢?本文将会介绍3款不同的安卓软件帮 ...
python输出到txt文件太大的原因_如何减小Python创建的txt文件的大小？
我在Netezza服务器上的一个表中有大约2M行x70列的数值和分类数据,我想使用Python将这些数据转储到一个.txt文件中. 我以前用SAS做过这个,在我的测试用例中,我得到了一个值450MB的 ...
anaconda如何保存python文件_想在Jupyter Notebook(Anaconda)中保存并运行Python脚本
确保您的ipython笔记本与python脚本位于同一文件夹中.此外,您可能必须在与python脚本相同的文件夹中创建一个空的__init__.py文件,以使导入工作. 由于您可能正在修改您的pyth ...

python filename 以txt截尾_What？PPT里也能运行Python？

python filename 以txt截尾_What？PPT里也能运行Python？相关推荐

最新文章

热门文章