SAP 增强字段命名规范(持续更新ing)

1.字段名称应该以YY/ZZ开头,不然SAP更新之后可能会用到相同名字的字段,导致字段被覆盖。不以YY/ZZ开头的字段激活之后会有警告消息如下图。

### VBA 调用系统 API 实现文件选择对话框 为了在 VBA 中调用系统 API 来实现文件选择对话框并兼容 Win10 和 Win11,可以使用 `GetOpenFileName` 函数。此函数允许用户通过标准的 Windows 文件打开对话框来选择文件,并返回所选文件的路径和名称。 以下是完整的代码示例: ```vba Option Explicit #If Vba7 And Win64 Then Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _ ByVal lpOFN As OPENFILENAME) As Long #Else Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _ ByVal lpOFN As OPENFILENAME) As Long #End If Private Type OPENFILENAME lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As String End Type Sub SelectTextFileDialog() Dim ofn As OPENFILENAME Dim fileName As String ' 初始化结构体大小 ofn.lStructSize = LenB(ofn) ' 设置过滤器为仅显示 .txt 文件 ofn.lpstrFilter = "文本文件 (*.txt)" & Chr$(0) & "*.txt" & Chr$(0) & "所有文件 (*.*)" & Chr$(0) & "*.*" & Chr$(0) ' 定义最大文件名长度 ofn.nMaxFile = 260 fileName = Space$(ofn.nMaxFile) ofn.lpstrFile = fileName ' 设置初始目录为空 ofn.lpstrInitialDir = "" ' 设置对话框标题 ofn.lpstrTitle = "请选择一个 .txt 文件" ' 设置标志位 ofn.Flags = &H8 Or &H4 Or &H2000 ' 打开文件选择对话框 If GetOpenFileName(ofn) <> 0 Then MsgBox "您选择了:" & Trim$(ofn.lpstrFile), vbInformation, "文件选择成功" Else MsgBox "未选择任何文件", vbExclamation, "操作取消" End If End Sub ``` #### 说明 上述代码实现了以下功能: - **OPENFILENAME 结构初始化**:定义了一个名为 `OPENFILENAME` 的数据结构用于存储文件选择对话框的相关参数[^1]。 - **过滤器设置**:设置了只显示 `.txt` 文件的过滤条件。 - **跨平台支持**:通过 `#If Vba7 And Win64 Then` 判断当前运行环境是否为 64 位操作系统,从而适配不同版本的操作系统(Win10 和 Win11)[^5]。 - **错误处理**:如果用户取消了文件选择,则会弹出提示信息;否则,将显示所选文件的完整路径和名称。 --- ###
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值