VBA与AI的第一次对话-----Open AI(ChatGPT)

aman1516 · 发表于 2023-2-4 13:56

hnsd24 发表于 2023-2-4 12:32
不是套模板的，你输入一段汉字需求描述，他可以给你写VBA代码出来，而且逻辑性很强。从而看出来ChatGPT是 ...

能否帮忙问问这个，头痛N多天了：
用VBA绘制wav音频的波形图或频谱图
https://club.excelhome.net/thread-1652294-1-1.html

perfect131 老师给了个也是 chatgpt 的，VBA测试没通过，算法要考验对WAV文件结构的解析
lss001 老师给了个提取WAV文件数据方案，在研究中

再次感谢两位老师

Stone_00x · 发表于 2023-2-4 14:38

qlmgu 发表于 2023-2-4 13:30
是吗，谢谢告知，我去找找

http://chat.h2ai.cn/home

wps6129 · 发表于 2023-2-4 14:53

技术太厉害了~~

wps6129 · 发表于 2023-2-4 14:56

ivccav 发表于 2023-2-4 09:28
Openai的注册网站，中国大陆是无法访问的。

百度应该会做个类似chaygpt的出来，访问外网成本越来越高， ...

百度 chayGPT 是真的么

jeff_ps2009 · 发表于 2023-2-4 15:12

这个太厉害了~~~~~

ivccav · 发表于 2023-2-4 15:32

wps6129 发表于 2023-2-4 14:56
百度 chayGPT 是真的么

应该可以期待的。

hnsd24 · 发表于 2023-2-4 20:24

wps6129 发表于 2023-2-4 14:56
百度 chayGPT 是真的么

假的。国内所谓的ChatGPT很多都是用了人家的API接口而已

hnsd24 · 发表于 2023-2-4 20:32

aman1516 发表于 2023-2-4 13:56
能否帮忙问问这个，头痛N多天了：
用VBA绘制wav音频的波形图或频谱图
https://club.excelhome.net/thre ...

这是AI给的一段示例代码，你可以参考下。

Sub PlotWaveform()
Dim WaveFile As String
Dim Data() As Integer
Dim i As Long
'prompt the user for the file name
WaveFile = Application.GetOpenFilename("WAV Files (*.wav), *.wav")
'read the wave file into an array
Open WaveFile For Binary Access Read As #1
ReDim Data(LOF(1) \ 2 - 1) As Integer
For i = 0 To UBound(Data)
Get #1, , Data(i)
Next i
Close #1
'plot the waveform in a chart
With Worksheets.Add
With .Range("A1").Resize(UBound(Data) + 1)
.Value = Application.Transpose(Data)
With .Parent.Shapes.AddChart2(251, xlLine, .Left, .Top, .Width, .Height).Chart
.SetSourceData Source:=.Range("A1").Resize(UBound(Data) + 1)
.Axes(xlCategory).MajorUnit = (UBound(Data) + 1) \ 10
.Axes(xlValue).MinimumScale = -32768
.Axes(xlValue).MaximumScale = 32767
End With
End With
End With
End Sub

复制代码

hnsd24 · 发表于 2023-2-4 20:58

aman1516 发表于 2023-2-4 13:56
能否帮忙问问这个，头痛N多天了：
用VBA绘制wav音频的波形图或频谱图
https://club.excelhome.net/thre ...

我选择一个3分钟长度的WAV音频文件。这个AI自动编写的代码报错了。原因在于生成了一个2000多万长度的数组Data,而EXCEL最大仅支持104万行。AI居然想让Data数组写入工作表，哈哈
他这个思路基本上是没问题的，读取WAV文件，获取频谱数值，写入工作表，然后自动创建一个折线图。
QQ图片20230204205208.png

hnsd24 · 发表于 2023-2-4 21:19

hnsd24 发表于 2023-2-4 20:58
我选择一个3分钟长度的WAV音频文件。这个AI自动编写的代码报错了。原因在于生成了一个2000多万长度的数 ...

关于这个错误，AI给出的解决方案

		自动登录	找回密码
密码			免费注册

[原创] VBA与AI的第一次对话-----Open AI(ChatGPT)