音响播放中的促销广告语是怎么制作啊 文字转语音、背景音乐

我是新手如何制作一个公司需要的物流明确表？？跪求大神速速回答，谢谢！

新建一个汇总表。按Alt+F11——菜单栏——插入——模块——粘贴以下代码；按F5——再关闭VBA窗口——返回操作界面：(),f,f1,fc,s,x,,=("。")Setf=fs。("E:\MyDocuments\汇总\")'存放文件的目录,自己根据实际修改Setfc=f。Filesx=1ForEachf1InfcIfRight(f1。Name,3)...全部

新建一个汇总表。按Alt+F11——菜单栏——插入——模块——粘贴以下代码；按F5——再关闭VBA窗口——返回Excel操作界面：Subcfl()Dimfs,f,f1,fc,s,x,rowss,columnssSetfs=CreateObject("Scripting。

FileSystemObject")Setf=fs。GetFolder("E:\MyDocuments\汇总\")'存放文件的目录,自己根据实际修改Setfc=f。Filesx=1ForEachf1InfcIfRight(f1。

Name,3)="xls"ThenWorkbooks。Open(f1。Path)rowss=Workbooks(f1。Name)。Sheets(1)。Range("A65536")。

End(xlUp)。Rowcolumnss=Workbooks(f1。Name)。Sheets(1)。columns。CountWorkbooks(f1。Name)。Sheets(1)。

Range("A1:z"&CStr(rowss))。CopyWorkbooks(1)。ActivateWorkbooks(1)。Sheets(1)。Range("A"&CStr(x)&":z"&CStr(x+rowss))。

SelectWorkbooks(1)。Sheets(1)。PasteApplication。CutCopyMode=False'Forj=1Torowss'Fori=1Tocolumnss'Workbooks(1)。

Sheets(1)。Cells(x+j,i)。Value=_'Workbooks(f1。Name)。Sheets(1)。Cells(j,i)。Value'Nexti'Nextjx=x+rowssWorkbooks(f1。

Name)。Closesavechanges:=FalseEndIfNextEndSub。收起