flash和office vba 交互问题的解决方案

heitong

太感谢楼主了   但我得试验下是否能在07下正常运作   不过楼主解决了根源性问题

bibisin

谢谢LZ分享,学习了

lb_bn

精典之作,谢谢楼主分享.

qianlan

楼主太强大啦，向您致敬！！

飞云楼主

确实不错，收下，谢谢。

赵国辉

【利用Flash美化界面】——收藏

ningyong58

在实际使用中,好像没有这么复杂.
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub myflashTrustFiles_creater()
    Dim systemdisk As String
    systemdisk = GetSysDir()
    Dim yyy, a As Object
    Set yyy = CreateObject("Scripting.FileSystemObject")
    If yyy.FolderExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust") = True Then yyy.DeleteFolder systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust"
    yyy.CreateFolder (systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust")
    If yyy.FileExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\myTrustFiles.cfg") = True Then
        Kill systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\myTrustFiles.cfg"
    End If
    Set yyy = CreateObject("Scripting.FileSystemObject")
    Set a = yyy.CreateTextFile(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\myTrustFiles.cfg", True)
    a.WriteLine (systemdisk & "\")
    a.Close
    If yyy.FolderExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust") = True Then yyy.DeleteFolder systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust"
    yyy.CreateFolder (systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust")
   
    If yyy.FileExists(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust\myTrustFiles.cfg") = True Then
        Kill systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust\myTrustFiles.cfg"
    End If
    Set yyy = CreateObject("Scripting.FileSystemObject")
    Set a = yyy.CreateTextFile(systemdisk & "\WINDOWS\system32\Macromed\Flash\FlashPlayerTrust\FlashPlayerTrust\myTrustFiles.cfg", True)
    a.WriteLine (systemdisk & "\")
    a.Close
    Set yyy = Nothing
    Set a = Nothing
End Sub
Private Function GetSysDir() As String
    Dim sSave     As String
    Dim Ret     As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    GetSysDir = Left$(sSave, 2)
End Function
然后在Workbook_Open中调用即可，即是插入如下代码：
    Call myflashTrustFiles_creater

chentx

这个是要学习的，留个名，以后慢慢看。

老夏

只是做個[連結]
直接將MonoMenu.swf檔搬入WebBrowser1便是
不需要用到VBA

http://www.excelhelp.net/cgi-bin ... opic=255&show=0

用網頁控件iframe寫也行
請雙擊123.hta

[ 本帖最后由 老夏 于 2010-2-13 15:15 编辑 ]

li130

EXCEL不可思议，太不可思议了